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