Создать целочисленный массив ** 5 строк и 5 столбцов,заполнить его случайными числами в...

Question

Создать целочисленный массив на 5 строк и 5 столбцов,заполнить его случайными числами в пределе от -10 до +10 и найти сумму элементов каждой строки матрицы.PascalABC.net.На модуле crt.Заранее спасибо.

program dz8;uses crt;
var a:array [1..5,1..5] of integer;i,j,s,n:integer;


Begin TextColor(Green); for j:=1 to 5 do for i:=1 to 5 do a[i,j]:=random(21)-10; for j:=1 to 5 do begin for i:=1 to 5 do write(a[i,j]:4); writeln; end; End.
Если можно то как найти в этмо коде сумму каждой строки двумерного массива?

Answer 1

program dz8;

uses crt;

var a:array [1..5,1..5] of integer;

i,j,s:integer;

Begin

TextColor(Green);

//Заполнение и вывод массива

for i:=1 to 5 do

begin

for j:=1 to 5 do

begin

a[i,j]:=random(21)-10;

write(a[i, j]:4);

end;

writeln;

end;

writeln;

//Подсчет и вывод суммы каждой строки

for i := 1 to 5 do

begin

s := 0;

for j := 1 to 5 do

s := s + a[i, j];

writeln('Сумма ', i, ' строки = ', s);

end;

writeln;

end.

Comments

Спасибо большое