Вмассиве хранится информация о среднедневной температуре - вопрос №65113 от katiaj07102004 01.02.2020 19:14

Question

Информатика: Вмассиве хранится информация о среднедневной температуре за каждый день июля. определить количество самых прохладных дней в этом месяце.

katiaj07102004 · Answer

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.