Question

Помогите, пожалуйста, с 2 задачами по информатике. Очень нужно <3

1. Заполнить массив из 20 элементов заполнить случайными числами и выведите на экран два самых больших числа массива с их индексами

2. Для некоторого массива ( например из 20 элементов ) найти номер элемента, наименее отличающегося от среднего арифметического всех его элементов.

Answer 1

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