• Дан массив из 10 элементов. Составить программу которая даёт ответ на вопрос есть ли в массиве более одного элемента равного максимальному. Ответ выводится в виде Да/Нет.
    PASCAL.

Ответы 2

  • Эникей не мог бы ты решить ещё 3 задачи которые я опубликовал?
    • Автор:

      talonswg2
    • 5 лет назад
    • 0
  • // PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(10,1,9); a.Println;  if a.Where(t->t=a.Max).Count>1 then    Writeln('Есть элементы, равные максимальному')  else    Writeln('Нет элементов, равных максимальному')end.Примеры5 5 6 4 4 1 6 9 8 3Нет элементов, равных максимальному1 8 1 5 2 3 1 4 5 8Есть элементы, равные максимальному
    • Автор:

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

Войти через Google

или

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

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

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