Question

Дан массив из 15 элементов из интервала [0...50]. Поменять местами max и min элемент. Вывести исходные и преобразованные массивы.

Answer 1

const

 n=15;

var

 a:array [1..n] of integer;

 i,max,min,c:integer;

begin

 max:=-1; min:=51;

 for i:=1 to n do

   begin

     a[i]:=random(51);

     write(a[i]:4);

     if a[i]>max then

       max:=a[i]

         else

           if a[i]<min then

             min:=a[i];

   end;

 writeln;

 for i:=1 to n do

   begin

     if a[i]=min then

       a[i]:=max

         else

           if a[i]=max then

             a[i]:=min;

     write(a[i]:4);

   end;

end.