Pascal abc
составить программу
через array и for
Подсчитайте количество морозных дней (когда температура ниже -20 град.).

VAR
   i, kol: Integer;
   a: Array [1..20] of Integer;
BEGIN
   For i := 1 to 20 do Read(a[i]);

   For i := 1 to 20 do
      If (a[i] < -20) then Inc(kol);

   Write(kol);
END.

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