Question

Сформировать массив из 10 целых чисел, водимых с клавиатуры,и вынести элементы массива в обратном порядке

Answer 1

Программа:

Pascal:

var

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

 i: integer;

begin

 for i := 1 to 10 do readln(arr[i]);

 for i := 10 downto 1 do write(arr[i], ' ');

end.

Результат:

1

2

3

4

5

6

7

8

9

10

10 9 8 7 6 5 4 3 2 1