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

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

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

большое спасибо, вся моя любовь принадлежит тебе <3

Пожалуйста.

1.// PascalABC.NET 3.3begin  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 38max_1 = 84 i_Max_1 = 11max_2 = 83 i_Max_2 = 182.// PascalABC.NET 3.3begin  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