Помогите, пожалуйста. Паскаль ABC.
Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите произведение элементов, имеющих нечетные индексы. Выведите на экран исходный массив и полученное произведение.
Ответы на вопрос
Ответил Pro100Cool
0
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.
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.
Новые вопросы
Алгебра,
2 года назад
История,
2 года назад
История,
10 лет назад
Математика,
10 лет назад
Алгебра,
10 лет назад