Вопрос по информатике:
Cоставить программу, которая заполняет массив а [1..8] случайными целыми числами в диапазоне от 1 до 10, затем найти произведение элементов с нечетными значениями и количество элементов с четными значениями
- 05.12.2017 23:05
- Информатика
- remove_red_eye 14784
- thumb_up 12
Ответы и объяснения 1
Var
A:array[1..8] of Integer;
i:Integer;
multiply:Integer;
count:Integer;
begin
Randomize;
multiply:=1;
count:=0;
writeln('====== Элементы массива ======');
for i:=1 to 8 do
begin
A[i]:=random(10) + 1;
writeln(A[i]);
if A[i] mod 2=0 then
count:=count+1;
if A[i] mod 2=1 then
multiply:=multiply*A[i];
end;
writeln('======');
writeln('Чётных элементов всего = ',count);
writeln('Произведение нечётных = ',multiply);
end.
- 06.12.2017 17:25
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.