Информатика

Александрыч

5 мая, 19:58

program s1;

var

a:array [1 ... 10] of integer; i, n, s, p, k1, k2:integer;

begin

write ('n-?') ; readln (N) ;

for i:=1 to n do

Begin

Write (i, '-й-?') ; readln (a[i]) ;

end;

for i:=1 to n do write ('', a[i]) ;

writeln;

s:=0; p:=1; k1:=0; k2:=0; k3:=0;

for i:=1 to n do

begin

{1} s:=s+a[i];

{2} if a[i]>0 then p:=p*a[i];

{3} if a[i]<0 then k1:=k1+1;

{4} if a[i] mod 2=0 then k2:=k2+1;

{5} if a[i] mod 2=1 then k3:=k3*i;

end;

writeln ('s=', s, ' p=', p, ' k1=', k1, ' k2=', k2,)

end.

Из этой задачи вывести произведение нечетных чисел в k3