Вычислить среднее арифметическое положительных элементов массива f (m)

ARTMASS ARTMASS    3   15.06.2019 05:50    0

Ответы
57775858775847575 57775858775847575  12.07.2020 13:40
Program primer;
const n=10;
var f:array[1..n] of integer;
k,s,m:integer; sr:real;
begin
writeln ('vvedite massiv');
for m:=1 to n do
readln( f[m]);
k:=0;
s:=0;
for m:=1 to n do 
if f[m]>0 then begin
s:=s+f[m];
inc(k);
end;
sr:=s/k;
writeln('sr=',sr);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика