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.