Ввести c клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов...

Question

Ввести c клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива.


Пример:


Введите пять чисел:


4 15 3 10 14


среднее арифметическое 9.200

Answer 1

Uses crt;
var a:array[1..5] of integer; i:integer; s:real;
begin
  s:=0;
  writeln('Введите пять чисел:');
  for i:=1 to 5 do
  begin
    read(a[i]);
    s:=s+a[i];
  end;
  s:=s/5;
  writeln;
  write('среднее арифметическое ',s);
end.