Поменять местами, min и max элементы массива размера 10 Опции

[Lady_Dark]

Покопалась, никак не могу найти, все не то...
А у самой что-то не получается...
Помогите чем можете!..

[Lady_Dark]

Вот:

const maxSize=50;
type vector=array [1..maxSize] of double;
type vector=array [1..minSize] of double;

var a: vector;
i,n,nMax,nMin,j,m: byte;
temp=double;
   begin
     write ('n=');
     read (n);
     {ввод массива}
     for i:=1 to n do
     begin
     write ('a[',i,']=');
     read (a[i]);
   end;

begin
nMax:=1;
for i:=1 to n do
if a[i]>a[nMax]
then nMax:=i;
{если встретится больший элемент, то запомним его номер}
write ('номер=',nMax,'max значение=',a[nMax]:8:2);
end.

Сообщение отредактировано: Lady_Dark - 14.11.2006 13:51