Вопрос по информатике:
Задан массив DNA из N чисел (N=18) случайным образом в диапазоне [-5..15]. Найти количество положительных элементов массива.
С объяснениями, пожалуйста
Пожаловаться
- 11.12.2015 00:56
- Информатика
- remove_red_eye 16067
- thumb_up 46
Ответы и объяснения 2
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=18;
var dna:=ArrRandom(n,-5,15); dna.Println; // заполнение и вывод массива
Writeln('Кол-во положительных равно ',dna.Where(t->t>0).Count)
end.
Пример
-3 3 -5 2 6 11 1 8 -4 -3 13 -2 5 -3 2 -5 4 7
Кол-во положительных равно 11
// Внимание! Если программа не работает, обновите версию!
begin
var n:=18;
var dna:=ArrRandom(n,-5,15); dna.Println; // заполнение и вывод массива
Writeln('Кол-во положительных равно ',dna.Where(t->t>0).Count)
end.
Пример
-3 3 -5 2 6 11 1 8 -4 -3 13 -2 5 -3 2 -5 4 7
Кол-во положительных равно 11
Пожаловаться
- 13.12.2015 08:33
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы