Ответы
Ответ дал:
0
var a,s,k:real;
b:integer;
begin
s:=0;
k:=0;
for b:=1 to 7 do begin
writeln('Введите число:');
read(a);
if a < 30 then begin
s:=s+a;
k:=k+1;
end;
end;
s:=s/k;
writeln('Среднее арифметическое чисел:',s);
end.
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад