Дана последовательность из 200 чисел определённых случайным образом из интервала от 10 до...

Question

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

Answer 1

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 <br>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.

Comments

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