Вопрос по информатике:
Дан одномерный массив D(N).Элементы массива целые случайные числа в интервале [-12;+78].Сформировать массив и найти:
1)сумму отрицательных элементов массива;
2)сумму положительных элементов массива;
3)количество элементов массива равных нулю;
- 09.10.2017 14:39
- Информатика
- remove_red_eye 5597
- thumb_up 38
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var d:=ArrRandom(ReadInteger('n='),-12,78); d.Println;
Writeln('Сумма отрицательных равна ',d.Where(x->x<0).Sum);
Writeln('Сумма положительных равна ',d.Where(x->x>0).Sum);
Writeln('Количество нулевых равно ',d.Where(x->x=0).Count);
end.
Пример
n= 17
40 6 11 21 0 42 6 25 55 -1 54 21 49 6 -5 -12 49
Сумма отрицательных равна -18
Сумма положительных равна 385
Количество нулевых равно 1
- 01.01.1970 00:00
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.