С клавиатуры вводится последовательность из 13 целых чисел. Найти среднее арифметическое чисел, меньших 9

Question

Информатика

Милаша

21 февраля, 02:13

С клавиатуры вводится последовательность из 13 целых чисел. Найти среднее арифметическое чисел, меньших 9

+2

Ответы (2)

Знаете ответ?

Анисим · Answer 1

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.

Тихон · Answer 2

Паскаль.

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.