Массивы! Опции

[Vino-grad]

надо написать программу в которую надо ввести пять элементов массива. вычислить сумму. ничего не понимаю...

и еще одна программка похожая:

надо написать программу в которую надо ввести пять элементов массива. вычислить среднее.

[Ozzя]

вычислить среднее

program p2;
const
  n=5;
var 
  mas : array[1..n] of integer;
  x : integer;
  sum : real;
begin
  sum:=0;
  for x:=1 to n do
    begin
       write('Vvedite ',x,' element:');
       readln(mas[x]);
       sum:=sum+mas[x];
    end;
  Writeln('Srednee: ',sum / n);
end.

div дает результат целочисленного деления. А Вам нужно среднее арифметическое. Поэтому знак деления - / и тип переменной sum - real