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
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.