Pascal, помогите Опции

[CumbeR-C]

помогите решить задачку!
Определить минимальный элемент массива и его порядковый номер.

[Гость_trust_*]

Код

Program Pashka;
Const N=5;
Var X,Min,NMin,I:Integer;
Begin
Writeln('Input Array');
Min:=MaxInt;
for I:=1 to N Do
Begin
  Read(X);
   if X<Min then Begin
                  Min:=X;
                  NMin:=I;
                 End;
End;
Writeln('ArrayMin is number ',NMin,':',Min);
Readln; Readln;
End.

а зачем массив заводить вообще?

Сообщение отредактировал trust - Oct 29 2006, 18:29