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.
Я надеюсь надо было на паскале написать?)
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
//Задана последовательность из n вещественных чисел. определить сколько среди них меньших k, больших k, равных k.
Console.WriteLine("Введи k");
double k = double.Parse(Console.ReadLine());
Console.WriteLine("Введи n");
double n = double.Parse(Console.ReadLine());
Console.WriteLine("Введи числа");
double a = 0.0, n_min = 0.0, n_rav = 0.0, n_max = 0.0;
for (int i = 0; i < n; i++)
{
a = double.Parse(Console.ReadLine());
if (a < k)
n_min++;
else
{
if (a == k)
n_rav++;
else
n_max++;
}
}
Console.WriteLine("Меньших k - " + n_min + ", равных - " + n_rav + ", больших - " + n_max);
Console.ReadKey();
}
}
}
