Drenthe
Гуру
(3692)
13 лет назад
program dvumern;
Uses Crt;
Var a: array [1..10,1..10] of byte;
i,j,m,n:integer;
Begin
Clrscr;
writeln('‚ўҐ¤ЁвҐ а §¬Ґа ¬ ваЁжл m*n: ');
write('m= ');readln(m);
write('n= ');readln(n);
writeln('‚ўҐ¤ЁвҐ н «Ґ¬Ґвл ¬ ваЁжл: ');
for i:=1 to m do
for j:=1 to n do begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
writeln('Њ ваЁж ');
for i:=1 to m do begin
for j:=1 to n do begin
write(a[i,j]:3);
end;
writeln;
end;
readln;
End.
юзай))