С клавиатуры вводится последовательность из 13 целых чисел. Найти среднее арифметическое чисел, меньших 9
Ответы
Ответ дал:
0
var
i : integer;
val: integer;
sum: integer;
cnt: integer;
begin
sum:=0;
cnt:=0;
for i:=1 to 13 do
begin
readln(val);
if (val<9) then
begin
cnt := cnt + 1;11
sum := sum + val;
end;
end;
writeln(sum/cnt);
end.
Ответ дал:
0
Паскаль.
uses crt;
var
a,s,i,k:integer;
begin
s:=0; k:=0;
for i:=1 to 13 do
begin
write('Введите ',i,' число: '); read(a);
if a<9 then
begin
s:=s+a; k:=k+1;
end;
end;
write('Среднее арифметическое чисел, меньших 9: ',s/k);
end.
Вас заинтересует
1 год назад
9 лет назад
9 лет назад