Дано 30 натуральных чисел. вычислить среднее арифметическое всех нечетных чисел (Паскаль)

Question

Информатика

Галюха

15 июля, 11:23

Дано 30 натуральных чисел. вычислить среднее арифметическое всех нечетных чисел (Паскаль)

+2

Ответы (1)

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

Евстратий · Answer 1

Program pas;

var

a:array[1 ... 30] of integer;

i, k: integer;

s: real;

begin

s:=0;

k:=0;

for i:=1 to 30 do

readln (a[i]) ;

for i:=1 to 30 do

begin

if (not (a[i]mod 2=0)) then

s:=s+a[i];

inc (k) ;

end;

s:=s/k;

write (s:4:0) ;

end.