Паскаль 8 ! с клавиатуры вводится число 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.
Var A,P:real; N:integer; Begin P:=1; Write('N = ');ReadLn(N); WriteLn('Введи массив'); For N := 1 to N do Begin ReadLn(A); if (N mod 2 = 0)and(A>0) then P:=P*A End; WriteLn(P) End.
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.
N:integer;
Begin
P:=1;
Write('N = ');ReadLn(N);
WriteLn('Введи массив');
For N := 1 to N do
Begin
ReadLn(A);
if (N mod 2 = 0)and(A>0) then P:=P*A
End;
WriteLn(P)
End.