четные числа надо перемножить, найти из них(четных) наименьшее и его индекс.
Const
max=1000;
Var
A:Array[1..max] of Integer;
n,i,p,Nmin,min:integer;
begin
Writeln('Vvedite posledovatelnost');
n:=0;
While not SeekEoln Do begin
n:=n+1;
read(A[n]);
end;
if n=0 then
writeln('pystaia posledovatelnost')
else Begin
p:=1;
NMin:=0;
min:=Low(Integer);
For i:=1 to n Do Begin
If (A[i] mod 2)=0 Then Begin
p:=p*A[i];
If min>A[i] Then Begin
min:=A[i];
NMin:=i;
end;
end;
end;
If Nmin=0 Then
Writeln('V posledovatelnosti net chisel udovletvoryayuschih usloviyu')
else Begin
Writeln('Proizvedenie = ',p);
Writeln('Naimenshee iz chetnyh chisel = ',min);
Writeln('Ego nomer = ',Nmin);
end;
end;
Readln;
Readln;
end.
наверняка какая-нибудь оч глупая ошибка
Сообщение отредактировано: лоен -