program ReverseOrder; var numbers: array[1..5] of Integer; i: Integer; begin // Ввод чисел writeln('Введите 5 чисел:'); for i := 1 to 5 do readln(numbers[i]); // Вывод чисел в обратном порядке writeln('Числа в обратном порядке:'); for i := 5 downto 1 do writeln(numbers[i]); end.
Эта программа запрашивает у пользователя ввод 5 чисел и затем выводит их на экран в обратном порядке.
Программа на Pascal:
program ReverseOrder;var
numbers: array[1..5] of Integer;
i: Integer;
begin
// Ввод чисел
writeln('Введите 5 чисел:');
for i := 1 to 5 do
readln(numbers[i]);
// Вывод чисел в обратном порядке
writeln('Числа в обратном порядке:');
for i := 5 downto 1 do
writeln(numbers[i]);
end.
Эта программа запрашивает у пользователя ввод 5 чисел и затем выводит их на экран в обратном порядке.