Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые…

vara: array [1… 20] of integer; max,x,i: integer; beginrandomize; 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 > 0 then if a[i] div 100 < 10 then if a[i] mod 10=0 then if x < a[i] then x: =a[i]; writeln ('Max: ',x); end.