shukur3
09.03.2022 17:21

Будьте добрыми. все ! 1.найти сумму отрицательных элементов массива 2.подсчитать количество элементов массива, равных 50 3.дан массив целых чисел. вывести номера тех элементов, которые навело делятся на 5

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
angeloknet1
09.09.2020 01:34
// 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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота