Так как тема "Подпрограммы", то и использовать нужно подпрограммы.
Естественно код большой и может не совсем оптимальный.
Цитата:
Сообщение от antishoker
3) Вычислить и запомнить суммы положительных элементов каждой строки матрицы A (10,20), B (15,10)
|
Код:
const
m=20;
n=10;
k=15;
var
a:array [1..n,1..m] of integer;
b:array [1..k,1..n] of integer;
s:array [1..20,1..2] of integer;
i,j:integer;
procedure init;
begin
for i:=1 to 20 do
for j:=1 to 2 do
s[i,j]:=0;
end;
procedure zap(x,y:integer);
begin;
for i:=1 to x do begin
for j:=1 to y do begin
a[i,j]:=random(20);
write (a[i,j]:4);
end;
writeln;
end;
end;
procedure zap1(q,w:integer);
begin;
for i:=1 to q do begin
for j:=1 to w do begin
b[i,j]:=random(20);
write (b[i,j]:4);
end;
writeln;
end;
end;
procedure suma;
begin
for i:=1 to n do begin
for j:=1 to m do
if a[i,j]>0 then begin
s[i,1]:=s[i,1]+a[i,j];
write (i,')',s[i,1]:3,' ');
end;
end;
end;
procedure sumb;
begin
for i:=1 to k do begin
for j:=1 to n do
if b[i,j]>0 then begin
s[i,2]:=s[i,2]+b[i,j];
write (i,')',s[i,2]:3,' ');
end;
end;
end;
begin
randomize;
init;
writeln ('First');;
zap(n,m);
writeln ('Summa');
suma;
writeln;
writeln ('Second');
zap1(k,n);
writeln ('summa');
sumb;
readln
end.