Помогите Написать программу, которая вводит с экрана N чисел, считает их среднее арифметическое и выводит его на экран

Question

Информатика

Фаина

28 марта, 12:28

Помогите Написать программу, которая вводит с экрана N чисел, считает их среднее арифметическое и выводит его на экран

+3

Ответы (1)

Знаете ответ?

Ефимий · Answer 1

Program;

var a, sum, k:integer;

sr:real;

Begin

sum:=0;

k:=0;

while a0 do

begin

read (a) ;

sum:=sum+a;

k:=k+1;

end;

sr:=sum/k;

writeln (sr) ;

End.