БУДЬТЕ ДОБРЫМИ.ОЧЕНЬ НУЖНО!!!!!ОТДАЮ ВСЕ БАЛЛЫ! 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