Question

PascalABC.NET
Составьте программу для ввода значений 10 элементов массива с клавиатуры и вывода их на экран в обратном порядке. ​

Answer 1

var

 a: array[1..10] of integer;

 i: integer;

 

begin

 for i := 1 to 10 do Read(a[i]);

 Writeln('Введённые числа в обратном порядке:');

 for i := 10 downto 1 do Write(a[i], ' ');

end.