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

Дмитрий

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.