• с клавиатуры вводится массив из N элементов (0-100)
    а) найти максимальный и минимальный баллы
    б) найти количество баллов <30
    в) найти количество баллов = 100
    г) вывести 3 различных лучших результата

Ответы 1

  • // PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger('Вводите:',ReadInteger('n='));  Writeln('Баллов, меньших 30: ',a.Where(t->t<30).Count);  Writeln('Баллов, равных 100: ',a.Where(t->t=100).Count);  Write('Три различных лучших результата: ');  a.Distinct.OrderByDescending(t->t).Take(3).Printlnend.Примерn= 23Вводите: 92 51 93 33 7 60 47 71 24 17 49 35 7 31 6 74 51 86 51 86 100 48 54Баллов, меньших 30: 5Баллов, равных 100: 1Три различных лучших результата: 100 93 92
    • Автор:

      kosmo9fpt
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years