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