Сумма минимального позитивного элемента и его номера - Delphi - Ответ 416233

procedure TForm1.Button3Click(Sender: TObject);
const
  //Количество элементов в массиве.
  N = 7;
var
  //Массив.
  Arr     : array[1..N] of Integer;
  //Переменные для индексации элементов массива.
  i, IMin : Integer;
  //Строка для алгоритма распечатки.
  StrTmp  : String;
begin
 
  //Очищаем Мемо.
  Memo1.Clear;
 
  //Инициализируем генератор случайных чисел.
  Randomize;
  //Записываем в массив случайные целые числа.
  for i := 1 to N do begin
    //Случаное целое число из диапазона: (-10 + 0)...(-10 + 20) = -10...10.
    Arr[i] := -10 + Random(21);
  end;
 
  //Распечатываем исходный массив А:
  Memo1.Lines.Add('Исходный массив А:');
  StrTmp := '';
  for i := 1 to N do begin
    if StrTmp <> '' then begin
      StrTmp := StrTmp + Char(9);
    end;
    StrTmp := StrTmp + IntToStr(Arr[i]);
  end;
  Memo1.Lines.Add(StrTmp);
 
  //Решаем поставленную задачу.
  IMin := -1;
  for i := 1 to N do begin
    if Arr[i] > 0 then begin
      if IMin = -1 then begin
        IMin := i;
      end else if Arr[i] < Arr[IMin] then begin
        IMin := i;
      end;
    end;
  end;
 
  //Распечатываем результат:
  Memo1.Lines.Add('Результат:');
  if IMin = -1 then begin
    Memo1.Lines.Add('В массиве нет положительных элементов.');
  end else begin
    Memo1.Lines.Add('Первым из минимальных положительных элементов является: Arr['
      + IntToStr(IMin) + '] = ' + IntToStr(Arr[IMin]) + '.'
    );
    Memo1.Lines.Add('Сумма первого из минимальных элементов массива и его индекса равна: '
      + IntToStr(Arr[IMin] + IMin) + '.'
    );
  end;
 
end;