С клавиатуры вводится число n,а за ним-массив из n элементов.Найдите и выведите на экран произведение всех положительных элементов массива с чётными индексами.
Var a: array[1..100] of integer;
i, n: integer;
p: integer;
begin
randomize;
writeln(massiv: );
readln(n);
for i := 1 to n do
a[i] := random(10) - 5;
writeln(Исходный массив: );
for i := 1 to n do
write(a[i], );
p:=1;
for i := 1 to n do
if (a[i]>0) and (i mod 2=0) then p:=p*a[i];
writeln(Произведение =,p);
readln.
end.
_____________________________
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
