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

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

Задать свой вопрос
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] lt;100 then
begin
a1:=a[i] mod 10;
a2:=a[i] div 10;
if (a1=a2) and (a[i]gt;max) then
begin
max:=a[i];
if a[i]lt; min then min:=a[i];
end;
end;
if a[i]gt;99 then
begin
a1:=a[i] mod 10;
a2:=a[i] div 100;
if (a1=a2) and (a[i]gt;max) then
begin
max:=a[i];
if a[i]lt; min then min:=a[i];
end;
end;
end;
writeln('Наибольший палиндром: ',max);
writeln('Минимальный палиндром: ',min);
end.
Камилла Гольверк-Ковалева
Полагаюсь, верно поняла условия.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт