Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ массив. поиск

Автор: лоен 22.12.2007 2:10

подскажите, что не так.
четные числа надо перемножить, найти из них(четных) наименьшее и его индекс.

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.


наверняка какая-нибудь оч глупая ошибка

Автор: volvo 22.12.2007 2:32

Все-таки, для поиска минимума лучше

min := High(Integer);
, правда? smile.gif

Автор: лоен 22.12.2007 2:33

ой)))
спасибо)