Uses
Crt;
Var
i, N, kol: byte;
sum_rost, sr_rost: real;
team: array[1..100] of real;
Begin
sum_rost := 0.0;
sr_rost := 0.0;
kol := 0;
write('Введите количество членов команды');
read(N);
writeln('Введите рост каждого члена команды');
for i := 1 to N do
begin
readln(team[i]);
sum_rost := sum_rost + team[i];
end;
sr_rost := sum_rost / N;
for i := 1 to N do
if (team[i] > sr_rost) then
kol := kol + 1;
writeln('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ')');
write(' равно ', kol);
End.
Я надеюсь надо было на паскале написать?)
#include <iostream>
using namespace std;
int main() {
int n,k,l=0,m;
cin >>n>>k;
m=n;
while(m<2*n){
l++;
m+=m*k/100;
}
cout <<l;
}
вот так вот
Объяснение: