Verified answer

program raf105;

var a:array[1..3] of integer;

i,za,zb:integer;

begin

write('Введите три числа: ');

readln(a[1],a[2],a[3]);

for i:=1 to 3 do

begin

 if (a[i]<0) and ((a[i] mod 2) <> 0)

   then za:= za+1

end;

for i:=1 to 3 do

begin

 if (a[i]>99) and (a[i]<1000) and ((a[i] mod 2) = 0) and (a[i]>zb)

   then zb:=a[i];

end;

writeln('а) ',za);

if zb<>0  

 then writeln('в) ',zb)

 else writeln('в) Не найдено');

end.

Программа написана на языке PascalABC.NET