2. Составьте программу для ввода с клавиатуры в массив 7 целых чисел и вывода этих чисел в обратном порядке.

Решение задачи должно включать организацию двух разнонаправленных циклов:

1) цикла, организующего ввод значений элементов массива от 1 до 7 (for i: = 1 to 7 do);

2) цикла, организующего вывод на экран элементов полученного массива с 7 по 1 (for i: = 7 downto 1 do).

Program massivka;

Var a: array [1 ... 7] of integer;

begin

for i: = 1 to 7 do readln (a[i]);

for i: = 7 downto 1 do write (a[i]);

end.