[pascal] Экзаменационные задачи.

[IvaN9900]

Заполнить двумерный массив 10х10 случайными числами из диапазона 0;5 и подсчитать сумму элементов главной диагонали.
нароботок нет, т.к. в АБС вылетает куча ошибок, короче не знаю что писать. Помогите решением пожалста))

[Mad_Cat]

s:=0;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[i,j]:=random(5)+random(100)/100;
if i=j then s:=s+a[i,j];
write(a[i,j]:6:2);
end;writeln;end;
writeln(s);

[IvaN9900]

Сообщение от Mad_Cat

s:=0;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[i,j]:=random(5)+random(100)/100;
if i=j then s:=s+a[i,j];
write(a[i,j]:6:2);
end;writeln;end;
writeln(s);

Спасибо, вроде работает, но получается никак не 10х10.
не могу разобраться, что писать в
for i:=1 to 10 do begin
for j:=1 to 10 do begin
чтобы именно 10х10 было?

[Mad_Cat]

но получается никак не 10х10

а что получается?

[IvaN9900]

Сообщение от Mad_Cat

а что получается?

ну, я там сам допер, но массив выводился не как 10х10, а 8х13..