Скачать программы Все программы автораЗадание № 19Дан прямоугольный массив А( m,n). Получить линейный массив B ( m), в котором B ( I)-сумма элементов I-й строки массива A(m,n). ( I изменяется от1 до m). Составить схему алгоритма, написать программу и комментарии к программе.
Program prog; var a:array [1..100,1..100] of integer; b:array [1..100] of integer; m,n,k,i,s:integer; begin write('Введите pазмеpность массива='); read(m,n); writeln('Запомнить массив'); for i:=1 to m do for k:=1 to n do read (a [i,k]); for i:=1 to m do for k:=1 to n do begin S:=S+a[i,n]; b[i]:=S-b[i-1]; end; write('Сумма элементов каждой стpоки'); for i:=1 to m do writeln (b[i]); end. |