• Помогите составить программу на языке Паскаль. Дам 20 баллов

    question img

Ответы 1

  • PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     var a := Arr(3.5, 4.2, 5.7, 6.3, 4.5, 7.1, 3.3);

     Writeln('a) ', a.Sum);

     Writeln('б) ', a.Where(t -> t > 5).Sum);

     Writeln('в) ', a.Max);

     Writeln('г) ', a.Where(t -> t < 5).Count);

     Writeln('д) ', a.IndexMin + 1)

    end.

    a) 34.6б) 19.1в) 7.1г) 4д) 7
  • Добавить свой ответ

Войти через Google

или

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

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

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