решить задачу в pascal по массивам Пользователь вводит размерность массива и его элементы. Найти в массиве позицию максимального элемента и вывести ее на экран. Вычислить количество нечётных элементов и вывести его на экран. Заменить в массиве все однозначные элементы на 10, вывести полученный массив на экран. Найти первый элемент кратный 5.

Задание №1
var
  a, b, n: integer;

begin
  readln(a, b);
  n := a - b;
  case n of
    1..65536: writeln('a>b');
    0: writeln('a=b');
  else writeln( 'a<b');
  end;
end.

Задание №2

var  a: integer;
begin
    writeln('Введите год рождения'); readln(a);
    write('Вы родились в ');
    case a mod 12 of
        0: writeln('год Обезьяны.');
        1: writeln('год Петуха.');
        2: writeln('год Собаки.');
        3: writeln('год Свиньи.');
        4: writeln('год Крысы.');
        5: writeln('год Быка.');
        6: writeln('год Тигра.');
        7: writeln('год Кролика.');
        8: writeln('год Дракона.');
        9: writeln('год Змеи.');
        10: writeln('год Лошади.');
        11: writeln('год Козы.');
  end;
end.

А. Устройство, с которого изображение выводится на монитор - 6. Видеокарта

В. Вентиляторы, предназначенные для воздушного охлаждения процессора - 7. Кулеры

С. Устройство, используемое для хранения всех видов данных - 1. Жёсткий диск

D. Устройство, которое позволяет создавать локальную сеть, соединяя компьютеры между собой и/или выходить в интернет - 4. Сетевая карта

E. Устройство, отвечающее за обработку звука на ПК - 3. Звуковая карта

F. Устройство, которое отвечает за обработку всех данных в системе и глобально управляет работой аппаратного обеспечения компьютера - 2. Процессор

G. Сложная многослойная печатная плата, на которой устанавливаются основные компоненты персонального компьютера - 5. Материнская плата