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

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.

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются

стены, ученики, террористы(учителя : d), парты ии т.д.

разрушить : d,