Вопрос по информатике:
Написать и выполнить программу: сформировать массив из 15 целых чисел из [-28;25], вывести исходный массив в строку; найти произведение всех элементов; найти количество положительных элементов; найти минимальный элемент и его индекс.
Пожаловаться
- 13.12.2015 01:41
- Информатика
- remove_red_eye 17020
- thumb_up 12
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-28,25); a.Println;
Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q));
Writeln('Положительных элементов: ',a.Where(t->t>0).Count);
var imin:=a.IndexMin;
Writeln('Номер минимального элемента- ',imin+1,
', его значение равно ',a[imin])
end.
Пример
4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21
П = -447760579166208000
Положительных элементов: 8
Номер минимального элемента- 7, его значение равно -28
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-28,25); a.Println;
Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q));
Writeln('Положительных элементов: ',a.Where(t->t>0).Count);
var imin:=a.IndexMin;
Writeln('Номер минимального элемента- ',imin+1,
', его значение равно ',a[imin])
end.
Пример
4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21
П = -447760579166208000
Положительных элементов: 8
Номер минимального элемента- 7, его значение равно -28
Пожаловаться
- 14.12.2015 04:51
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы