! | ЧИТАЕМ правила форума |
пример на 18 числах, просто чтобы ты мог проверить, так как с 60 неудобно.
uses crt;
Const N = 18;
var ms : array [1..N] of integer;
i : integer;
begin
Clrscr;
randomize;
for i:=1 to N do
begin
ms[i]:=random(20)-10;
write (ms[i]:3);
end;
writeln;
for i:= N DownTo 1 do
begin
if i mod 6 = 0 then writeln;
write (ms[i]:4);
end;
readkey;
end.