Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ вывод чисел из массива в обратном порядке

Автор: ИЛЬЯ 7.04.2007 21:59

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


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

Автор: Tan 7.04.2007 22:03

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