При выполнении 1-го задания использовать функции для работы с массивами символов (данные типа сhar). При выполнении 2-го задания использовать клacc string и методы этого класса для обработки строк.
Задание №1.
​​Дана строка:
«Алиеву Нодиру Азаматовичу в этом году исполнилось 22 года»
Надо:
1. Определить количество слов.
2. Найти в строке первую цифру.
3. Проверить следующий за ним символ, является ли он цифрой.
4. Выделит в отдельную строку цифры и преобразовать их в число.
5. Вычислитьь год рождения и вывести на печать.
Задание №2. Введена строка date, которая содержит правильно введенную дату в формате «28 декабря 2019 года». дд.мм.гг. Преобразуйте строку в строку, который содержит дату в формате «28.12.19 г».

1). а и b - И - Это символ благодаря которому мы понимаем, что в ответе обязательно должны совпадать a и b.

Например:

Для какого из данных слов истинно высказывание: (чётное кол-во букв) И (первая буква гласная).

Варианты ответов:

Морж - (4 буквы-чётное✔; М-согласная✖) Ложно.Оладьи - (6 б.-чётное✔; О-гласная✔) ИстинноМираж - (5б.-нечётное✖; М-согласная✖) ЛожноАня - (3б.-нечётное✖; А-гласная✔) Ложно

Из этих вариантов нужно найти тот, что полностью совпадает.

2). a или b - ИЛИ - Это символ благодаря которому мы понимаем, что в ответе не обязательно должны совпадать a или b, т.е. если в высказывании будет совпадать как минимум 1 вариант, то оно уже не будет ложным.

Например:

Для какого из приведённых названий ложно высказывание:  (чётное кол-во букв) ИЛИ (последняя буква гласная).

Варианты ответов:

Газета - (6б.-чётное✔; А-гласная✔) ИстинноТрамвай - (7б.-нечётное✖; Й-согласная✖) ЛожноГлаза - (5б.-нечётное✖; А-гласная✔) ИстинноПаук - (4б.-чётное✔; К-согласная✖) Истинно

Из этих вариантов нужно найти тот, что совпадает как минимум одним действием. Если вариант будет полностью совпадать, то он так же считается верным.

function MyCool(a: array of integer): array of integer;

begin

 Result := new integer[6];

 var (min, max, kn, kp, kz) := (a[0], a[0], 0, 0, 0);

 for var i:= 0 to a.High do

 begin

   if a[i] > 0 then kp += 1;

   if a[i] = 0 then kz += 1;

   if a[i] < 0 then kn += 1;

   if a[i] > max then max := a[i];

   if a[i] < min then min := a[i]

 end;

 Result[0] := max;

 Result[1] := min;

 Result[2] := kn;

 Result[3] := kp;

 Result[4] := kz;

 Result[5] := kp + kz

end;

begin

 var a := ArrRandom(10, -10, 10);

 a.Println;

 var b := MyCool(a);

 Println('Значение наибольшего элемента массива:', b[0]);

 Println('Значение наименьшего элемента массива:', b[1]);

 Println('Количество отрицательных элементов массива:', b[2]);

 Println('Количество положительных элементов массива:', b[3]);

 Println('Количество нулевых элементов массива:', b[4]);

 Println('Количество неотрицательных элементов массива:', b[5])

end.