Напишите программу, которая считывает 5 целых чисел, каждое на одной строке записывает их в массив и печатает этот массив наоборот на одной строке через пробелы. Использовать функции (readln, write, for downto). Пример
Ввод
1
2
3
4
5
Вывод
5 4 3 2 1
Напишите программу, которая считывает 5 целых чисел, каждое на одной строке записывает их в массив и печатает этот массив наоборот на одной строке через пробелы. Использовать функции (readln, write, for downto). Пример
Ввод
1
2
3
4
5
Вывод
5 4 3 2 1
Ввод
1
2
3
4
5
Вывод
5 4 3 2 1
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program ReverseArray;
var
arr: array[1..5] of Integer;
i: Integer;
procedure readNumbers();
begin
for i := 1 to 5 do
begin
readln(arr[i]);
end;
end;
procedure reverseArray();
begin
for i := 5 downto 1 do
begin
write(arr[i], ' ');
end;
end;
begin
readNumbers();
reverseArray();
end.