4. В массиве хранится информация о среднедневной температуре декабря. Определите, сколько в декабре было дней с самой низкой и с самой высокой температурой.

Объявим массив констант c размером в 31 элемент, который будет содержать информацию о среднедневной температуре декабря. Также объявис переменные k_min и k_max, в них будем записывать количество дней с минимальной и максимальной температурой соответственно. В первом цикле найдём максимальную и минимальную температуру, а во втором — количество дней с самой низкой и самой высокой температурой.

const c: array [1..31] of integer = (
11, 13, 13, 12, 11, 10, 8, 9, 10, 13,
12, 11, 5, 9, 6, 8, 7, 2, -1, -5,
-3, -2, 2, 1, -5, -5, -4, -5, -3, -4, -3);
var k_min, k_max, n_max, n_min: integer;
begin
 n_max := 1;
 n_min := 1;
 for var i := 2 to 31 do
 begin
  if c[i] > c[n_max] then
   n_max := i;
  if c[i] < c[n_min] then
   n_min := i;
 end;
 k_min := 0;
 k_max := 0;
 for var i := 1 to 31 do
 begin
  if c[i] = c[n_max] then
   k_max := k_max + 1;
  if c[i] = c[n_min] then
   k_min := k_min + 1;
 end;
 writeln('Дней с самой низкой температурой - ', k_min);
 writeln('Дней с самой высокой температурой - ', k_max);
end.