Задание 1. Ввод и вывод элементов массива

Составить программу на языке Turbo Pascal для ввода с клавиатуры 10 компонент одномерного массива A и вывода их на экран в обратном порядке.

При вводе элементов массива всегда лучше считать верхнюю границу его индексов неизвестной константой, которую нужно описать в разделе описания констант. Тогда составленную программу можно использовать для массивов различной размерности, при этом в программе будет изменяться только значение константы.

1. Запустите Turbo Pascal.

2. В окне редактирования наберите текст программы:

Program massiv_1;

Const N=10; {Присваиваем верхней границе индексов массива значение 10}

var i: integer;

A: Array [1..N] of Real; {Вместо верхней границы 10 указываем константу N}

begin

For i:= 1 To N Do

begin

Writeln ('Введите значение ', i, ' –го элемента массива');

Read (A[i])

end;

For i:= N Downto 1 Do

Writeln ('A[ ', I, ']=',A[i]:6:2)

end.

3. Запустите процесс компиляции программы.

4. Запустите программу на выполнение.

5. Сохраните программу на диске.