• БУДЬТЕ ДОБРЫМИ.ОЧЕНЬ НУЖНО!!!!!ОТДАЮ ВСЕ БАЛЛЫ!
    1.найти сумму отрицательных элементов массива
    2.Подсчитать количество элементов массива, равных 50
    3.Дан массив целых чисел. Вывести номера тех элементов, которые навело делятся на 5

Ответы 1

  • // PascalABC.NET 3.2, сборка 1389 от 01.03.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  Writeln('Сумма отрицательных: ',a.Where(x->x<0).Sum);  Writeln('Количество равных 50: ',a.Where(x->x=50).Count);  Write('Нацело делятся на 5: '); a.Where(x->x mod 5=0).Println;end.Примерn= 1713 -35 41 -42 -67 -32 -34 57 50 -1 -7 18 -18 -19 -46 -76 40Сумма отрицательных: -377Количество равных 50: 1Нацело делятся на 5: -35 50 40
    • Автор:

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

Войти через Google

или

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

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

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