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

Question

Информатика

Неля

12 августа, 11:15

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

+1

Ответы (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.