Помогите, пожалуйста. Паскаль ABC. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите произведение элементов, имеющих нечетные индексы. Выведите на экран исходный массив и полученное произведение.
Помогите, пожалуйста. Паскаль ABC. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите произведение элементов, имеющих нечетные индексы. Выведите на экран исходный массив и полученное произведение.
Гость
Ответ(ы) на вопрос:
Гостьconst n = 10;
var a :array [1..n] of integer; i, p :integer;
begin
randomize; for i:= 1 to n do a[i]:= random(100); p:= 1; for i:= 1 to n do if i mod 2 = 1 then p:= p * a[i]; for i:= 1 to n do write(a[i],' '); writeln; writeln(p);
end.
Не нашли ответ?
Похожие вопросы