решить Какое из нижеприведённых предложений не является высказыванием?
а) все ученики нашей школы любят информатику.
б) Некоторые люди имеют голубые глаза.
в) Вы были вчера на выставке?
г) Завтра в нашем театре премьера.

2. Постройте таблицы истинности для следующих логических выражений:
a) A˄B˅C b) ¬A˅(B˄C)

3. Для какого из приведённых имён истинно высказывание:
НЕ (Первая буква гласная) И НЕ (Последняя буква согласная)?
1) Емеля 2) Иван 3) Михаил 4) Никита.

4. Определите, какие значения принимают выражения, если
А=1, В=0, С=0
А˅В˄С=
¬С˄А˅¬В=
А˅В˅¬С=
А˄¬С˅В=

uses crt;
var r: byte;
begin
readln(к);
write('Мне ',к);
if r in [5..20] then write(' лет') else
  case к mod 10 of
1: write(' год');
2..4: write(' года');
5..9,0: write(' лет');
else

writeln('error');
end;
end.

через case оч хорошо всё получается)

или вот так по подробнее:

 Const st='Мне';
Var
k: Byte;
BEGIN
Repeat
Write('Введите K (от 1 до 99): ');
Readln(k);
until k in [1..99];
Case k of
11..20: Writeln(st,' ',k,' лет');
Else
begin
Case k mod 10 of
1: Writeln(st,' ',k,' год');
2..4: Writeln(st,' ',k,' года');
5..9,0: Writeln(st,' ',k,' лет');
end;
end;
end;
Readln
END.

Я так понимаю, что "номер максимального элемента" это на самом деле индекс.(иначе было бы написано "значение максимального элемента") Не забываем, что индексация массива ничинается с нуля.

#include <iostream>
using std::cout;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;

int main()
{
    int a[15];
    int largestIndex = 0, counter = 0;

    srand(time(0));

    for(int i = 0; i < 15; i++)
    {
        a[i] = rand() % 21 - 10;

        if(a[i] < 0)
        {
            counter++;
        }
        if(a[largestIndex] < a[i])
        {
            largestIndex = i;
        }

        cout << a[i] << ' ';
    }

    cout << "\nThe index of the largest number = " << largestIndex
        << "\nThe number of negative elements = " << counter << endl;

   return 0;
}

P.S. В другом ответе решение неверное.