Задание 3. В массиве хранится информация о среднесуточной температуре ноября (случайные числа от −5 до 10). Определите, был ли в этот период хотя бы один день с отрицательной температурой, и если да, то выведите дату первого такого дня.

В ноябре 30 дней. Значения массива генерируются в диапазоне от −5 до 10 включительно; для этого подходит выражение random(16)-5. Цикл прекращается при первом отрицательном значении, поэтому будет выведена дата первого такого дня.

program FirstNegativeDay;
var
  temp: array[1..30] of integer;
  i: integer;
begin
  for i := 1 to 30 do
    temp[i] := random(16) - 5;

  i := 1;
  while (i <= 30) and (temp[i] >= 0) do
    i := i + 1;

  if i <= 30 then
    writeln('Первый день с отрицательной температурой: ', i, ' ноября')
  else
    writeln('Отрицательной температуры в ноябре не было');
end.

Сначала генерируются температуры, затем поиск идёт от 1-го ноября по порядку. Если подходящий день найден, индекс массива и есть дата месяца.