Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Как вывести двумерный массив в паскале?..

Женя Мастер (1623), закрыт 13 лет назад
Лучший ответ
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.

юзай))
Остальные ответы
vampire133 nameless Мыслитель (7763) 13 лет назад
for i:=0 to n do begin
for j:=0 to m do
write(arr[i,j],' ');
writeln;
end;
Похожие вопросы