Найти среднее арифметическое положительных элементов - Turbo Pascal

Формулировка задачи:

Подскажите: Найти средне - арифметическое положительных элементов.

Код к задаче: «Найти среднее арифметическое положительных элементов - Turbo Pascal»

textual
uses crt;
var ser,i,x:integer;
begin
i:=0;ser:=0;
clrscr;
Write('Enter = ');readln(x);
while (x<>0) do
begin
if (x>0) then begin
                ser:=x+ser;   //находиш суму (+) чисел
                inc(i);       //количество (+) чисел
              end;
Write('Enter = ');readln(x);                        
end;
Writeln('Answer = ',ser/i);     //средне - арифметическое положительных элементов  [сума всех чисел / их количество]
end.

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ