Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / REIT1
.PAS 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.
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.
Соседние файлы в папке Alex