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

[CumbeR-C]

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

[Гость_trust_*]

Код

Program Pashka;
Const N=5;
Var A:Array[1..N] of Integer;
I:Integer;
Begin
for I:=1 to N do Read(A[I]);

for I:=1 to N do
Begin
  if (I mod 2)<>0 then A[I]:=A[I]*A[I];
End;

for I:=1 to N Do Write(A[I],' ');
Readln; Readln;
End.

вроде работает, но это наскоро и не отлажено...

во второй задаче, ты имел ввиду 3 последних?

А вот и вторая: сырая, аналогично первой :

Код

Program Pashka;
Const N=10;
Var A:Array[1..N] of Integer;
I,X:Integer;
Begin
for I:=1 to N do Read(A[I]);

for I:=1 to 3 do
Begin
  X:=A[I];
  A[I]:=A[N-3+I];
  A[N-3+I]:=X;
End;

for I:=1 to N do Write(A[I],' ');
Readln; Readln;
End.

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

[-flank]

во второй задаче, ты имел ввиду 3 последних?
А вот и вторая: сырая, аналогично первой :

Program Pashka;
Const N=10;
Var A:Array[1..N] of Integer;
I,X:Integer;

за это бы у нас прогу не приняли, сказав что не эффективно используете ресурсы

Сообщение отредактировал -flank - Nov 1 2006, 19:07