Попытка 4!!! ДАЮ 50 поинтов!!Заполнить массив( как на фото МНЕ НУЖЕН САМ АЛГОРИТМ!!!) из 10 элементов случайными числами в интервале [-10..10]и найти в нем два максимальных элемента и их номера ПРИМЕРИсходный массив: 4 -5 3 10 -4 -6 8 -10 1 0Максим.:а[4]=10, а[7]=8.

begin
  var a:=Arr(4,-5,3,10,-4,-6,8,-10,1,0); a.Println;
  var im1,im2:integer;
  if a[im1]<a[im2] then Swap(im1,im2);
  for var i:=2 to a.High do
    if a[i]>a[im1] then begin im2:=im1; im1:=i end
    else
      if a[i]>a[im2] then im2:=i;
  WritelnFormat('a[{0}]={1}, a[{2}]={3}',im1+1,a[im1],im2+1,a[im2])
end.


4 -5 3 10 -4 -6 8 -10 1 0
a[4]=10, a[7]=8



begin
  var a:=ArrRandom(10,-10,10); a.Println;
  var im1,im2:integer;
  if a[im1]<a[im2] then Swap(im1,im2);
  for var i:=2 to a.High do
    if a[i]>a[im1] then begin im2:=im1; im1:=i end
    else
      if a[i]>a[im2] then im2:=i;
  WritelnFormat('a[{0}]={1}, a[{2}]={3}',im1+1,a[im1],im2+1,a[im2])
end.


-1 10 -6 3 -4 -3 -4 7 0 -7
a[8]=7, a[4]=3