Нужно составить программу.

Задача: заполнить массив из 5 элементов и вывести на печать сначала все элементы, а ниже третий элемент.

var

a: array [1 ... 5] of real;

i: integer;

begin

for i: = 1 to 5 do / / Заполняем массив

begin

writeln ('Введите ', i, ' элемент массива') ;

readln (a[i]) ;

end;

for i: = 1 to 5 do / / Выводим все элементы массива

write (a[i], ' ') ;

writeln; / / Перевод на новую строку

writeln (a[3]) / / Выводим 3 элемент массива

end.