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

БУДЬТЕ ДОБРЫМИ.ОЧЕНЬ НУЖНО!!!!!ОТДАЮ ВСЕ БАЛЛЫ! 1.найти сумму отрицательных элементов массива 2.Подсчитать количество элементов массива, равных 50 3.Дан массив целых чисел. Вывести номера тех элементов, которые навело делятся на 5
Гость
Ответ(ы) на вопрос:
Гость
// 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= 17 13 -35 41 -42 -67 -32 -34 57 50 -1 -7 18 -18 -19 -46 -76 40 Сумма отрицательных: -377 Количество равных 50: 1 Нацело делятся на 5: -35 50 40
Не нашли ответ?
Ответить на вопрос
Похожие вопросы