Вопрос по информатике:
Заполнить массив случайными числами (положительными и отрицательными)
из произвольного диапазона. Вывести созданный массив на экран, расположив
элементы в одну строку через пробелы. Посчитать общее количество элементов, кратных 3 и нечетных элементов и вывести на экран
- 15.07.2018 00:28
- Информатика
- remove_red_eye 9050
- thumb_up 34
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var k3:=a.Where(x->x mod 3=0).Count;
var kOdd:=a.Where(x->x.IsOdd).Count;
Writeln('Элементов, кратных 3: ',k3);
Writeln('Нечетных элементов: ',kOdd);
Writeln('В сумме и тех, и других: ',k3+kOdd)
end.
Тестовое решение
n= 15
-40 39 58 -85 -61 -49 -9 -67 11 -20 -67 -33 -97 66 33
Элементов, кратных 3: 5
Нечетных элементов: 11
В сумме и тех, и других: 16
- 16.07.2018 01:20
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.