Дана последовательность из 200 чисел определённых случайным образом из интервала от 10 до 999. Найти самый большой и самый маленький палиндромы.
PascalABC. 45 БАЛЛОВ ЗА ЛУЧШИЙ.

Надеюсь, правильно поняла условия.

Если Вам не сложно....Помогите мне тоже, пожалуйста...Я Вас ооочень прошу(( https://znanija.com/task/31304032

var a: array [1..200] of integer; i,max,min,a1,a2: integer; begin Randomize; min:=1000; for i:=1 to 200 do a[i]:=random(10,999); for i:=1 to 200 do begin if a[i] <100 then begin a1:=a[i] mod 10; a2:=a[i] div 10; if (a1=a2) and (a[i]>max) then begin max:=a[i]; if a[i]< min then min:=a[i]; end; end; if a[i]>99 then begin a1:=a[i] mod 10; a2:=a[i] div 100; if (a1=a2) and (a[i]>max) then begin max:=a[i]; if a[i]< min then min:=a[i]; end; end; end; writeln('Максимальный палиндром: ',max); writeln('Минимальный палиндром: ',min); end.