Одномерный массив

[MeDVeD001]

здравствуйте, задача составить одномерный массив из 20 чисел, в нем найти макс. и мин. эллемент и поменять их местами.

program minImax;
var

A : array [1..100] of integer;
I,n : byte;
s,b,c,min,max : integer;


begin
writeln ('введите размерность массива  = 20');
readln(n);
for i:= 1 to n do
A[i]:= random(b+c)-b;

min:= A[1];
for i:=2 to N do
if A[i]<min then min:= A[i];

max:= A[1];
for i:=1 to N do
if A[i]>max then max:=A[i];
s:= max;
max:= min;
min:= s;

Begin
For i:=1 to N do
Writeln('A[',I,']=', A[i]);
readln;
end;

End.

но выходят одни нули, подскажите в чем проблема, и как ввести размерность массива = 20 сразу а не методом ввода?

Добавлено:

но выходят одни нули

а все понял - не ввел b и c))
ток числа почемуто не меняются подскажите плиз в чем дело...

 

[nayke]

здравствуйте, задача составить одномерный массив из 20 чисел, в нем найти макс. и мин. эллемент и поменять их местами.

но выходят одни нули, подскажите в чем проблема, и как ввести размерность массива = 20 сразу а не методом ввода?

for i:=1 to 20 do

Добавлено:
а все понял - не ввел b и c))
ток числа почемуто не меняются подскажите плиз в чем дело...

вначале напиши
randomize;

и еще ты меняешь местами переменные min и max
а надо элементы массива
a[iMin] и a[iMax]