Скачать программы Все программы автораЗадача № 23Дан прямоугольный массив A(M,N).Используя программу получить массив B(N), в котором B(I)- сумма элементов I-ой строки массива A(M,N).
program fma;{имя программы} {раздел описаний} var m,n,i,j:integer; a:array[1..100,1..100] of integer; b:array[1..100] of integer; begin {ввод значений границ массива} writeln('введите количество строк массива m:'); readln(m); writeln('введите количество столбцов массива n:'); readln(n); begin {цикл по строкам для ввода значений массива} for i:=1 to m do begin writeln('введите ',i, '-ю строку массива(через пробел):'); {цикл по столбцам для ввода значений массива} for j:=1 to n do read(a[i,j]); readln; end; begin {раздел исполняемых операторов} writeln('результирующий массив:'); {цикл по строкам исходного массива} for i:=1 to m do begin b[i]:=0;{обнуление результирующего массива} for j:=1 to n do {цикл по столбцам исходного массива} b[i]:=b[i]+a[i,j];{суммирование массива} writeln('результат[',i,']=',b[i]);{вывод результата} end; end; end. |