Скачать программы    Все программы автора

Задача № 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.