Var a: integer; //a - вводимое число n, s: integer; //n- количество введенных чисел, s - сумма этих чисел
begin n:= 0; //обнуляем счетчик s:= 0; a:= 1; {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись} while a <> 0 do begin writeln('Введите целое число'); readln(a); if a <> 0 then //Чтобы при подсчете среднего арифметического не учитывался 0 begin n:= n + 1; s:= s + a; end; end; writeln('Среднее арифметическое введенных чисел: ', s / n); end.
Var i,n, pol: integer; //pol - количество положительных чисел, n - количество всех чисел a,s: real; //a- вводимое число, s - сумма положительных чисел
begin pol:= 0; //обнуляем счетчик s:= 0; writeln('Введите количество чисел'); readln(n); for i:= 1 to n do begin writeln('Введите число'); readln(a); if a > 0 then begin s:= s + a; pol:= pol + 1; end; end; writeln('Среднее арифметическое положительных чисел: ', s / pol); {среднее арифметическое равно сумме чисел делить на их количество} end.
