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

  • Автор темы MeDVeD001
  • Дата начала
M

MeDVeD001

#1
здравствуйте, задача составить одномерный массив из 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

Well-known member
04.08.2010
310
0
#2
здравствуйте, задача составить одномерный массив из 20 чисел, в нем найти макс. и мин. эллемент и поменять их местами.

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

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

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