1. На вход программе даётся число N и N чисел (все натуральные <10000). Нужно вывести то число, в котором наименьшееколичество цифр. Если таких чисел несколько, вывести любое из них. Примеры: 4 123 24 167> 24; 5 13 4 16 100 8 = > 42. Программа должна вывести все четырёхзначные числа, которые являются палиндромами (т. е. читаются одинаково справа налево и слева направо). Пример: 1001 1111 1221 1331 ... 9889 9999

1. program zz1;

var n, i, min, a:integer; / / вводим переменную целого типа

begin

write (' введите число n '); / / вводим с клавиатуры число

read (n);

min:=100000;

for i:=1 to n do / / организуем цикл

begin

read (a);

if a < min then min:=a;

end;

write (' число с наименьшим количеством цифр = ', min); / / выводим ответ

end.

2. program zz1;

var i, i1, i2, i3, i4:integer; / / задаем переменные целого типа

begin

for i:=1000 to 9999 do / / перебираем все четырехзначные числа

begin

i1:=i div 1000;

i2: = (i div 100) mod 10;

i3: = (i div 10) mod 10;

i4:=i mod 10;

if (i1=i4) and (i2=i3) then writeln (i); / / выводим ответ

end;

end.