Будьте добрыми. все ! 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.