• дан массив одномерный(30 элементов), вычислить сумму элементов, найти максимальное, вывести те элементы, которые делятся на 13
    Pascal
    заранее огромное спасибо

Ответы 1

  • // PascalABC.NET 3.1, сборка 1218 от 12.04.2016begin  var a:=ArrRandom(30,1,100); a.Println;  Writeln('S=',a.Sum,', max=',a.Max);  Write('Кратные 13: '); a.Where(n->n mod 13=0).Printlnend.Тестовое решение:91 45 76 84 16 23 33 56 70 99 9 56 18 75 48 49 22 90 27 52 94 85 42 45 87 7 78 90 40 5S=1612, max=99Кратные 13: 91 52 78
    • Автор:

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

Войти через Google

или

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

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

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