Дан массив из 30 элементов. Найдите среднее арифметическое элементов массива, которые по своему значению меньше 15. (на Паскале)
Дан массив из 30 элементов. Найдите среднее арифметическое элементов массива, которые по своему значению меньше 15. (на Паскале)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы