Вопрос школьника по предмету Информатика
БУДЬТЕ ДОБРЫМИ.ОЧЕНЬ НУЖНО!!!!!ОТДАЮ ВСЕ БАЛЛЫ!
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
Похожие вопросы от пользователей
В родной стороне и в морозы и в зной
Кипит в роднике ледяная водица.
Она и целебней и слаще любой, —
И сколько ни пью, не могу я напиться.
Бежит ручеек тот, негромко звеня,
Но чудную силу имеет такую,
Что с каждым глотком наполняет меня
Веселая удаль борцов сабантуя.
Готов свое сердце я людям отдать —
Любовью оно к ним горит негасимой.
Хотите — во мгле оно будет сиять,
А нужно — согреет в суровые зимы.
В огромную Волгу бежит ручеек,
Великой реки он становится частью…
Сказать бы я много о Родине мог,
Да разве словами расскажешь о счастье!