5. С клавиатуры вводится число n, а за ним массив целых чисел из n элементов. Необходимо написать процедуру, которая ищет и выводит два самых больших числа в массиве, при условии, что в массиве есть как минимум два различных элемента. Например, в массиве 1, 3, 9, 5, 7 два самых больших числа – это 9 и 7, а в массиве 1, 3, 3, 3 – это 1 и 3. Подсказка: объявите массив, как глобальную переменную.

Question

Информатика

Beabandis

4 год назад

5. С клавиатуры вводится число n, а за ним массив целых чисел из n элементов. Необходимо написать процедуру, которая ищет и выводит два самых больших числа в массиве, при условии, что в массиве есть как минимум два различных элемента. Например, в массиве 1, 3, 9, 5, 7 два самых больших числа – это 9 и 7, а в массиве 1, 3, 3, 3 – это 1 и 3. Подсказка: объявите массив, как глобальную переменную.

ОТВЕТЫ

Vsevolod

Oct 24, 2020

var
a:array[1..100000] of integer;
b:array[0..9]of boolean;
n,i:integer;

Procedure Two_Max;
var
cnt, i:integer;
begin
For i:= 1 to n do
    b[a[i]]:= true;
For i:= 9 downto 0 do
    if (b[i] = true)and(cnt < 2) then
      begin
        inc(cnt);
        Write(i, ' ');
      end;
end;

begin
Read(n);
For i:= 1 to n do
Read(a[i]);
Two_Max;
end.

75