Задана последовательность из n различных чисел. Удалите из неё все числа, кроме самого большого и самого маленького. Выведите оставшиеся числа, не меняя их порядок. В первой строке задано число n — длина последовательности (от 2 до 10), а во второй различные числа a1, a2, . . ., an, разделённые пробелами — элементы последовательности. пример ввода
3
3 6 5
пример вывода
3 6
пример ввода
5
9 8 3 6 5
пример вывода
9 3
2)var a:array [1..10] of integer; i,max,index:integer;begin for i:=1 to 10 do begin write ('A[',i,'] = '); readln (a[i]); end; max:=a[1]; index:=1; for i:=2 to 10 do if a[i] > max then begin max:=a[i]; index:=i; end; writeln ('Max: ',max,'.Index: ',index); readln;end.
3)var a:array [1..10] of integer; max,min,i,temp:integer;begin randomize; for i:=1 to 10 do begin a[i]:=random(50); write (a[i],' '); end; writeln; max:=1; min:=1; for i:=2 to 10 do if a[i] > a[max] then max:=i else if a[i] < min then min:=i; writeln ('Max: ',a[max]); writeln ('Min: ',a[min]); temp:=a[min]; a[min]:=a[max]; a[max]:=temp; for i:=1 to 10 do write (a[i],' ');end.Не знаю- правильно ли?