С2 по информатике. нужно < 3 1. заполнить массив из 20 элементов заполнить случайными числами и выведите на экран два самых больших числа массива с их индексами 2. для некоторого массива ( например из 20 элементов ) найти номер элемента, наименее отличающегося от среднего арифметического всех его элементов.

1.
// PascalABC.NET 3.3

begin
  var a:=ArrRandom(20,10,90); a.Println;
  var max_1:=a.Max;
  writeln('max_1 = ',max_1,' i_Max_1 = ',a.IndexMax+1);
  var max_2:=a.Where(x->x<>max_1).Max;
  writeln('max_2 = ',max_2,' i_Max_2 = ',a.IndexOf(max_2)+1);
end.

Пример:
58 10 76 12 22 38 63 30 16 81 84 58 65 20 29 31 18 83 12 38
max_1 = 84 i_Max_1 = 11
max_2 = 83 i_Max_2 = 18

2.
// PascalABC.NET 3.3

begin
  var a:=ArrRandom(20,10,90); a.Println;
  var sr:=a.Average;
  writeln('Среднее = ',sr);
  var m:=a.MinBy(x->abs(x-sr));
  writeln('Искомый номер = ',a.IndexOf(m)+1);
end.

Пример:
74 80 55 12 74 49 86 32 34 68 29 82 14 35 15 81 18 63 38 75
Среднее = 50.7
Искомый номер = 6

Информация в компьютере представлена в двоичном коде, алфавит которого состоит из двух цифр (0 и 1).Цифры двоичного кода можно рассматривать как два равновероятных состояния (события). При записи двоичной цифры реализуется выбор одного из двух возможных состояний (одной из двух цифр) и, следовательно, она несет количество информации, равное 1 биту.Даже сама единица измерения количества информации бит (bit) получила свое название от английского словосочетания Binary digiT (двоичная цифра).Важно, что каждая цифра машинного двоичного кода несет информацию в 1 бит. Таким образом, две цифры несут информацию в 2 бита, три цифры - в 3 бита и так далее. Количество информации в битах равно количеству цифр двоичного машинного кода.Каждая цифра машинного двоичного кода несет количество информации, равное одному биту.

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.