Помощь - Поиск - Пользователи - Календарь
Полная версия: массив. поиск
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
лоен
подскажите, что не так.
четные числа надо перемножить, найти из них(четных) наименьшее и его индекс.
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
Все-таки, для поиска минимума лучше
min := High(Integer);
, правда? smile.gif
лоен
ой)))
спасибо)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.