С клавиатуры вводится последовательность из 13 целых чисел. Найти среднее арифметическое чисел, меньших 9
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
