Вопрос пользователя:
В массиве хранится информация о среднедневной температуре за каждый день июля. Определить количество самых прохладных дней в этом месяце.
Илюха отвечает:
var
a:array[1..31] of real;
i,k:integer;
min:real;
begin
min:=50;
for i:=1 to 31 do
begin
readln(a[i]);
if a[i]<min then min:=a[i];
end;
k:=0;
for i:=1 to 31 do
if a[i]=min then k:=k+1;
writeln(k);
end.