Question

Найдите сумму элементов четных и сумму нечетных строк
матрицы А(n,m)

Answer 1

const n=5; m=5;
var a: array [1..n,1..m] of integer;
      i,j,s,s_:integer;
begin
writeln('Исходная матрица: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(15)+1;
if (i mod 2) = 0 then
s:=s+a[i,j]
else
s_:=s_+a[i,j];
write(a[i,j]:4);
end;
writeln;
end;
writeln;
writeln('Сумма чётных строк: ',s);
writeln('Сумма не чётных строк: ',s_);
end.