Дан массив из 40 элементов от 0 до 2000. Найти и вывести среднее арифметическое нечетных...

Question

Дан массив из 40 элементов от 0 до 2000. Найти и вывести среднее арифметическое нечетных трехзначных чисел.

Answer 1

k:=0;
m:=0;
for i:=1 to 40 do begin
if (a[i]>99) and (a[i]<1000) and (a[i]mod2<>0) then
k:=k+1;
m:=m+a[i];
end;
writeln(m/k);
end.