Ответы
Ответ дал:
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.
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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
7 лет назад