! | ЧИТАЕМ правила форума |
Помогите ПОЖАЛУЙСТА сделать задачу целиком!! Массив состоит из 60 случайных двузначных целых чисел. Выведите их на экран в обратном порядке по 6 чисел в строке. Заранее блогодарен
! | ЧИТАЕМ правила форума |
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.