Скачать программы Все программы автораЗадание № 16Дан массив A(m,n).Используя подпрограмму, которая обрабатывает строку (столбец) получить:1.Массив B(n), в котором B(i)-сумма элементов i-ой строки массива A(m,n). 2.Массив B(m), в котором B(i)-min элементов i-го столбца массива A(m,n).
program Mass; var a:array[1..100,1..100] of integer; b:array[1..100]of integer; i,s,m,n,sum:integer; begin write('Введите границы m,n='); readln(m,n); write('Заполните массив='); for i:=1 to m do for s:=1 to n do read (a[i,s]); for i:=1 to m do for s:=1 to n do begin sum:=sum+a[i,s]; b[i]:=sum-b[i-1]; end; for i:=1 to m do write(b[i]); end. |