Question

PascalABC.Net:
Сформировать массив из 10 целых чисел, вводя их значения с клавиатуры.
Найти первый максимальный элемент, вывести на экран.
Найти первый минимальный элемент, вывести на экран.
Поменять местами минимум и максимум.
Вывести на экран новый массив.
Input:
8 11 0 -1 3 5 7 2 1 10

Sample Output:
11
-1
8 -1 0 11 3 5 7 2 1 10

Answer 1

const  

 n=10;

var

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

 i,mini,maxi,c:integer;

begin

 mini:=1; maxi:=1;  

 for i:=1 to n do

   begin

     readln(a[i]);

     if a[i]>a[maxi] then

       maxi:=i

         else

           if a[i]<a[mini] then

             mini:=i;

   end;

 writeln;

 writeln(a[maxi]);

 writeln(a[mini]);

 c:=a[maxi]; a[maxi]:=a[mini]; a[mini]:=c;

 for i:=1 to n do

   write(a[i],' ');

end.