Начертите схему алгоритма и напишите программу для ответа на во достаточно ли сжигания угля массой m1, для того, чтобы выделившегося количества теплоты хватило для плавления 50 кг льда, взятого при температуре плавления.
Примечание. Для плавления необходимо количество теплоты , где m – масса льда, . При сгорании угля выделяется количество теплоты , где m1 – масса угля,
var a:Array[1..1000010] of longint;
i,n,s,ma,mi,sl:longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
mi:=(1 shl 30);
ma:=-(1 shl 30);
for i:=1 to n do begin read(a[i]);
ma:=max(ma,a[i]);
mi:=min(mi,a[i]);
end;
if ma=mi then write(0,'',n,'',0)
else
begin for i:=1 to n do
begin
if a[i]=ma then s:=s+1;
if a[i]=mi then sl:=sl+1;
end;
writeln(s,' ',sl,' ',n-s-sl);
close(input);
close(output);
end;
end.