Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Опишите алгоритм, позволяющий найти среднее арифметическое нечетных трехзначных чисел в этом массиве.​

Answer 1

const n=5;

var

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

 sum,i,count:integer;

begin

 sum:=0; count:=0;

 for i:=1 to n do

   begin

     readln(a[i]);

     if (a[i] mod 2 = 1) and (a[i]>99) and (a[i]<1000) then

       begin

         sum:=sum+ a[i];

         inc(count);

       end;

   end;

 if count>0 then

   writeln('Sr ar:', sum/count:4:2)

     else writeln('Error');

end.