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