программа с комментариями, если все равно не понятно спрашивай
для проверки программы рекомендую n поставить где нибудь на 10 потому что вводить 1000 чисел с клавиатуры то еще удавольствие :))
числа можно вводить по одному или одной строкой через пробел
const
n = 1000; // длина массива
var
d : array of integer := new integer[n]; // объявляем и создаем массив
a, b : integer;
begin
// вводим числа в массив //
writeln('введите данные в массив:');
for var i := 0 to n-1 do begin
read(a);
d[i] := a;
end;
writeln('введен массив d=', d); // выводим массив на экран
// переворачиваем данные в массиве //
// для этого меняем первое с последним, второе с предпоследним //
// и так до середины //
for var i := 0 to (n div 2)-1 do begin
a := d[i];
d[i] := d[n-i-1];
d[n-i-1] := a;
end;
writeln('переворачиваем массив d=', d); // выводим перевернутый массив
write('числа у которых первая цифра больше последней:');
// ищем и ввыводим числа с заданным условием //
for var i := 0 to n-1 do begin
// находим чему равна 1 цифра //
b := d[i];
repeat
b := b div 10;
until b < 10;
if b > d[i] mod 10 then write(' ', d[i]); // сравниваем первую и последнюю цифры и ели первая больше то выводим число
end;
end.
uses System;
begin
var Replace4to16 := new Dictionary<string, string>();
Replace4to16.Add('00', '0');
Replace4to16.Add('01', '1');
Replace4to16.Add('02', '2');
Replace4to16.Add('03', '3');
Replace4to16.Add('10', '4');
Replace4to16.Add('11', '5');
Replace4to16.Add('12', '6');
Replace4to16.Add('13', '7');
Replace4to16.Add('20', '8');
Replace4to16.Add('21', '9');
Replace4to16.Add('22', 'a');
Replace4to16.Add('23', 'b');
Replace4to16.Add('30', 'c');
Replace4to16.Add('31', 'd');
Replace4to16.Add('32', 'e');
Replace4to16.Add('33', 'f');
var n4 := ReadString('a_4 = ');
if n4.Length mod 2 = 1 then n4 := '0' + n4;
var n16 := '';
for var i := 0 to n4.Length div 2 - 1 do
if Replace4to16.ContainsKey(n4.Substring(2 * i, 2)) then
n16 += Replace4to16[n4.Substring(2 * i, 2)]
else writeln('Неверные знаки "', n4.Substring(2 * i, 2), '" в числе');
writeln(n16);
end.