01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / REIT1

Program rom;
uses crt;
type
mas=array[1..30,1..30] of integer;
massiv=array[1..30] of integer;
VAR
i,j,k,s,f,n,m,x,y:integer;
a:mas;
r,p:massiv;

Procedure g(a:mas;r,p:massiv;i,j:integer);
begin
for i:=1 to n do begin
f:=0;
for j:=1 to m do
f:=a[i,j]+f;
r[i]:=f;
end;
for j:=1 to m do begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
p[j]:=s;
end;
for i:=1 to n do
writeln(r[i]:4);
readln;
for j:=1 to m do
write(p[j]:4);

end;



BEGIN
clrscr;
k:=1;
Writeln('‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ваЁжл :n,m ');readln(n,m);
Write('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­вл ў ¬ ббЁў ');
for i:=1 to n do begin
for j:=1 to m do begin
gotoXY(k,i+6);
readln(a[i,j]);
k:=k+10;end;
k:=1;end;
g(a,r,p,i,j);
readln;
READLN
END.