Question

адана последовательность из n различных чисел. Удалите из неё все числа, кроме самого большого и самого маленького. Выведите оставшиеся числа, не меняя их порядок.
В первой строке задано число n — длина последовательности (от 2 до 10), а
во второй различные числа a1, a2, . . ., an, разделённые пробелами — элементы
последовательности.
пример ввода
3
3 6 5
пример вывода
3 6
пример ввода
5
9 8 3 6 5
пример вывода
9 3

Answer 1

Ответ:

var

n: integer;

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

i, min_i, max_i: integer;

begin

readln(n);

for i := 1 to n do

 read(a[i]);

min_i := 1;

max_i := 1;

for i := 1 to n do

begin

 if a[min_i] > a[i] then

  min_i := i;

 if a[max_i] < a[i] then

  max_i := i;

end;

if min_i > max_i then

 writeln(a[max_i], ' ', a[min_i])

else

 writeln(a[min_i], ' ', a[max_i])

end.

Объяснение:

Заведем переменные, в которых будем хранить индексы максимума и минимума, предположив, что максимум и минимум это первое число. Затем считаем массив и пройдемся по нему, обновляя максимум и минимум. Если индекс максимума меньше индекса минимума - сначала встретился максимум, выводим максимум потом минимум, и наоборот.