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

Question

Информатика

Юраша

22 сентября, 20:27

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

+4

Ответы (1)

Знаете ответ на вопрос?

Васюня · 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;

f:=s/k;

write (f) ;

end.