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

Question

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

Comments

Паскаль?

Answer 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);<br>  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