вывод чисел из массива в обратном порядке, по 6 в строке Опции

[ИЛЬЯ]

!

ЧИТАЕМ правила форума

Помогите ПОЖАЛУЙСТА сделать задачу целиком!! Массив состоит из 60 случайных двузначных целых чисел. Выведите их на экран в обратном порядке по 6 чисел в строке. Заранее блогодарен

Сообщение отредактировано: мисс_граффити - 14.06.2007 22:28

[Tan]

пример на 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.