Матрица в паскале

[Katia2191]

Здравствуйте! Помогите пожалуйста с одним вопросом. Мне дана матрица А(40,40) числа нужно задать случайным образом. Я не могу вывести матрицу так, чтобы она была в виде таблицы. Помогите пожалуйста! Заранее спасибо
Экзамен завтра...:confu sed:

[IT-man]

for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;

[Katia2191]

Спасибо большое! Столько сразу проблем решилось Только вот еще вопрос, что нужно изменить в моей программе, чтобы числа не были равны 0, чтобы их через random задать

Program 1;
Uses
Crt;
Const
n=40;
Var
A:array[1..n,1..n] of integer;
i:integer;
j:integer;
Begin
CrcScr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j]:4);
writeln;
end;
end.

[Базиля]

добавить ввод

randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(100);
write('a[',i,',',j,']=',a[i,j]);
writeln;
end;

[IT-man]

после randomize; вставить

for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(100);

[Katia2191]

Спасибо большое за советы! У меня наверно программа ерундит, по-тому что что-то все равно все идет в строчку

[Базиля]

Katia2191
что именно? Выложи окно вывода с результатами, разберемся и сделаем как надо

[Katia2191]

Да выводит числа все в столбик, их 20 штук всего

[IT-man]

Это паскаль в у него экран 80*20 и вы всю матрицу все равно не увидите попробуйте н поменьше хотя бы 20

[Katia2191]

Я взяла 7. Дело в том я уже все варианты испробовала, все равно. Первый раз вывела на экран все в таблице, но вот все 0...А когда задаю random либо опять все выводит только в столвик, или только 7 чисел только в столбик.((