Консультация № 189565
09.06.2016, 21:56
0.00 руб.
0 1 1
Здравствуйте! Прошу помощи в следующем вопросе:

Написать программу в Паскаль:Найдите произведения элементов массива четных и нечетных
позиций.

Обсуждение

давно
Старший Модератор
31795
6196
10.06.2016, 09:31
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]const
n=10;
var
a:array[1..n]of integer;
b,c:longint;
d:integer;
begin
b:=1;{начальное значение}
c:=1;{начальное значение}
randomize;
for d:=1 to n do
begin
a[d]:=random(100);{создаем случайно}
write(a[d]:5);{выводим}
if odd(d) then b:=b*a[d]{нечетные позиции}
else c:=c*a[d];{четные позиции}
end;
writeln;{выводим результат}
writeln('chet:=':10,c:10);
writeln('nechet:=':10,b:10);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа