Заполните числовой массив из 9 элементов и выведите на экран сумму 3 и 5 элементов.

var

a: array [1 ... 9] of real; / / Массив из 9 вещественных элементов

i: integer; / / Переменная для цикла

begin

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

begin

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

readln (a[i]) ;

end;

writeln ('Сумма 3 и 5 элементов: ', a[3] + a[5]) ; {Выводим на экран сумму 3 и 5 элементов}

end.