Информация, которую человек получает с языка. 8 букв

вкусовая информация

Объяснение:

-вкусовая

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();

        }

    }

}