Вопрос по информатике:
Дан целочисленный массив из 12 элементов случайных целых чисел принадлежащих интервалу 10;45 необходимо найти произведение элементов массива, кратных 5
- 17.11.2017 19:41
- Информатика
- remove_red_eye 4553
- thumb_up 39
Ответы и объяснения 1
Program z1; const n = 12; Var a: array [1..n] of integer; i,s:integer;Begin randomize; for i:=1 to n do begin a[i]:=random(45)+10; write (a[i],' '); end; s:=1; for i:=1 to n do if (a[i] mod 5 = 0) then s:=s*a[i]; writeln; writeln('Произведение элементов массива, кратных 5 - ',s);End.
- 18.11.2017 13:34
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.