Задание 1
Во Какие из приведённых утверждений верны?
Выберите несколько из 4 вариантов ответа:
1) a % b = b // a
2) math.cos (1) = math.cos (1 + 2 * math.pi)
3) a % b = a - (a // b) * b
4) math.sin (1) = math.sin (1 + 180)

Задание 2
Во Установите соответствие между функциями и их значениями, если x = 1.69.
Укажите соответствие для всех 4 вариантов ответа:
1) 1 sqrt (x)
2) 1.69 abs (x)
3) 1.3 int (x)
4) 2 round (x)

Задание 3
Во Функция abs (x) вернула значение 4. Укажите возможные значения x.
Выберите несколько из 4 вариантов ответа:
1) 2 2) 4 3) -4 4) 16

Задание 4
Во Установите соответствие между данными и их типом?
Укажите соответствие для всех 6 вариантов ответа:
1) int int (4 / 3)
2) float round (2.3)
2 / 2
abs (6 / 3)
6 % 4 / 2
3 // 2
Задание 5
Во Сопоставьте значения данных и их типы.
Укажите соответствие для всех 6 вариантов ответа:
1) int -10
2) float 4 / 2
0.2e+01
3 + 2
0
2

Вот задача для "троечников" с дополнительной оценкой:

program pr1;
uses
crt;

const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);

type
arr2 = array of integer;

var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;

begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;

writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.

Не трудно, но не полностью условие выполнено. Лови решение:

program arrs;
var
a : array[1..26] of integer;
i, min, max : integer;
m1, m2 : byte;

begin
randomize;
for i:=1 to 26 do begin
a[i] := random(29)-15;
write(a[i], ' ');
end;
min := 15;
max := -20;
for i:=1 to 26 do begin
if a[i] < min then begin
min:=a[i];
m1 := i;
end;
if a[i] > max then begin
max:=a[i];
m2 := i;
end;
end;
writeln;
writeln('Минимальный элемент в ячейке ', m1, ' равен ', min);
writeln('Максимальный элемент в ячейке ', m2, ' равен ', max);
end.

тестовый прогон:

0 2 -1 2 -9 -13 -9 -5 0 -14 11 6 8 -11 13 3 -15 -6 -15 -14 -3 13 9 7 3 -4
Минимальный элемент в ячейке 17 равен -15
Максимальный элемент в ячейке 15 равен 13