Question

Помогите, пожалуйста, даю 30 баллов!!!
Нужно делать через Free Pascal!
Нужно вывести числа в обратном порядке(Это если коротко).
Если что, через пробел.

Answer 1

решение ниже в комментариии

Answer 2

program HelloWorld;

var

mas : array [1..100] of integer;
i : integer;

begin

for i:=1 to 100 do
begin

mas[i]:=random(9); //для ввода чисел с клавиатуры заменить строку на: read(mas[i]);
write(mas[i]:2);
if i mod 10 = 0 then writeln;

end;

writeln('Массив в обратном порядке: ');

for i:=100 downto 1 do
begin

if (i mod 10 = 0) then writeln;
write(mas[i]:2);

end;

end.

Answer 3

Спасибо