Предмет: Информатика,
автор: YaroslavaBublik
Помогите, пожалуйста. Паскаль ABC.
Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите произведение элементов, имеющих нечетные индексы. Выведите на экран исходный массив и полученное произведение.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Другие предметы,
автор: ritamilchenko
Предмет: Физика,
автор: kpatos27
Предмет: Математика,
автор: yarik3510228002
Предмет: История,
автор: Sherlok320Holms