//pascal
var
count : integer;
temperature : array[1..7] of double;
begin
count := 0;
for var i := 1 to 7 do
readln(temperature[i]);
if temperature[i] < -5 then
count := count + 1;
end;
writeln('Количество дней, когда температура была ниже -5 градусов: ', count);
end.
//pascal
var
count : integer;
temperature : array[1..7] of double;
begin
count := 0;
for var i := 1 to 7 do
begin
readln(temperature[i]);
if temperature[i] < -5 then
count := count + 1;
end;
writeln('Количество дней, когда температура была ниже -5 градусов: ', count);
end.