Question

Помогите решить , желательно на языке паскаля.

Answer 1

const
n=30;
var
a:array[1..n]of integer;
i,j,s:integer;
begin
For i:=1 to n do
Readln(a[i]); {здесь появится курсор, числа вводятся с клавиатуры }
For i:=1 to n do
   begin
       if (a[i]>=100)and(a[i]<=999)then
             if a[i] mod 2=0 then
                 begin
                     s:=s+a[i];
                     j:=j+1;
                 end;
   end;
writeln;
if j=0 then
   writeln('нет нужных чисел ')
else 
    writeln(s/j);
end.