Попытка 4!!! ДАЮ 50 БАЛЛОВ!!Заполнить массив( как ** фото МНЕ НУЖЕН САМ АЛГОРИТМ!!!) из...

Question

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

---

Answer 1

PascalABC.NET 3.2, сборка 1382 от 06.02.2017
Внимание! Если программа не работает, обновите версию!

1. Заданный контрольный пример:

begin
  var a:=Arr(4,-5,3,10,-4,-6,8,-10,1,0); a.Println;
  var im1,im2:integer;
  if a[im1]  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

2. Решение задания

begin
  var a:=ArrRandom(10,-10,10); a.Println;
  var im1,im2:integer;
  if a[im1]  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