позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0

Ответы:

var

a:array [1..20] of integer,

max,x,i:integer,

begin

randomize,

writeln(Массив: ),

for i:= 1 to 20 do

 begin

 a[i]:=random(10001),

 write(a[i]:5),

 end,

writeln,

for i:= 1 to 20 do

 if a[i] div 100 &gt, 0 then

  if a[i] div 100 &lt, 10 then

   if a[i] mod 10 = 0 then 

    if x &lt, a[i] then x:=a[i],

writeln(Max: ,x),

end.