Вопрос по информатике:
Найти произведение нечетных элементов в массиве,заданном датчиком случайных чисел на интервале [-38,39]. Размер массива 10 чисел.
- 15.11.2015 09:14
- Информатика
- remove_red_eye 12021
- thumb_up 40
Ответы и объяснения 1
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,p:Integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(77)-38;
Write(A[i]:4);
end;
P:=1;
Writeln;
For i:=1 to n do
if not A[i] mod 2=0 then
p:=p*A[i];
Writeln('Произведение: ',P);
Readln;
END.
- 16.11.2015 00:08
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.