for i := 1 to m do begin
for j := 1 to n do
write(Mass[i,j],' ');
writeln;
writeln;
writeln;
end;
[Turbo Pascal] Вывод на монитор матрицы
Написать программу, содержащую процедуру для форматированного вывода на монитор матрицы размером 10х10, предварительно записанной в массиве Mass [m,n]. Интервал между строчными элементами массива должен быть равен трем символам
помогите плиз очень надо . В долгу не останусь
помогите плиз очень надо . В долгу не останусь
Код:
type
ma=array [1..10,1..10] of byte;
var
a:ma;
x,y:byte;
begin
for x:=1 to 10 do {ввод матрицы, для теста, иначе выводить нечего :) }
for y:=1 to 10 do
begin
write('input a[',x,',',y,'] >');
readln(a[x][y]);
end;
for x:=1 to 10 do
for y:=1 to 10 do
begin
write('a[',x,',',y,']=',a[x][y],' ');
end;
end.
ma=array [1..10,1..10] of byte;
var
a:ma;
x,y:byte;
begin
for x:=1 to 10 do {ввод матрицы, для теста, иначе выводить нечего :) }
for y:=1 to 10 do
begin
write('input a[',x,',',y,'] >');
readln(a[x][y]);
end;
for x:=1 to 10 do
for y:=1 to 10 do
begin
write('a[',x,',',y,']=',a[x][y],' ');
end;
end.