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