Ответ txt, просто переплавить местами переменные адресной строки
Var A, gradus, minut, N: real;
Begin
Writeln('Введите A градусов');
readln(A);
Writeln('До какой температуры остужать:');
readln(N);
gradus:=100-A;minut:=1;
While (gradus>N) do
Begin
A:=A*(1-0.15);
gradus:=gradus-A;
minut:=minut+1;
end;
Writeln('Кипяток остынет до ',N,' градусов через ', minut, ' минут');
readln();
<span>end.</span>
Ну отдыхает и че?.......,,.,,
//Dev-C++ 5.11(С)
#include <stdio.h>
int main(void)
{int n,i,f;
float sr,ar[100];
scanf("\%d",&n);
i=0;
f=0;
while(i<n)
{scanf("\%d",&ar[i]);
sr=sr+ar[i];
i++;}
sr=sr/n;
i=0;
while(i<n)
{if(ar[i]<sr)f++;
i++;}
printf("\%d",f);
return 0;
}
Пример ввода:
5
1
2
3
4
5
Пример вывода:
2