Дан массив из 30 элементов. Найдите среднее арифметическое элементов массива, которые по...

Question

Дан массив из 30 элементов. Найдите среднее арифметическое элементов массива, которые по своему значению меньше 15. (на Паскале)

Answer 1

Var
a: array [1..30] of integer;
i,k,s:integer;
f:real;
begin
k:=0; s:=0;
for i:=1 to 30 do
if a[i]<15 then begin k:=k+1; s:=s+a[i]; end;<br>f:=s/k;
write(f);
end.