Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Вводиться последовательность ненулевых чисел, 0-конец послодовательности.Определить среднее значение элементов последовательности

Ответ оставил Гость

Program Dafnochka;
uses crt;
var
  r,sum: real;
  k:integer;
begin
  writeln(*** alphaues is thinking... ***);
  writeln(***          OK             ***);
  sum:=0;
  k:=0;
  r:=1;
  writeln(Введите ненулевое число);
  writeln((или введите 0 для конца последовательности) );
  while r<>0 do
    begin
      write("Ввод:") ;  
      readln (r);
      sum:=sum+r;
      k:=k+1;  
    end;
  writeln();
  writeln(Всего введено ,k-1, чисел);
  writeln(Среднее значение равно ,sum/(k-1));
end.

Проверено - работает на Паскаль АВС