Массивы в языке Object Pascal - Delphi - Ответ 378590

procedure TForm1.Button1Click(Sender: TObject);
const
  N = 5;
  M = 2 * N;
  //При распечатке массива в каждой строке будем размещать по ColCount элементов.
  ColCount = 5;
var
  Arr     : array[1..M] of Integer;
  //Индекс элемента в массиве.
  i       : Integer;
  //Строка.
  StrTmp  : String;
  //Количество нечётных элементов в массиве.
  OddCount    : Integer;
  //True - количество нечётных элементов в массиве меньше N. False - иначе.
  IsLessThanN : Boolean;
begin
 
  //Очищаем Мемо.
  Memo1.Clear;
 
  //Заполняем массив случайными целыми числами.
 
  //Инициализация генератора случайных чисел.
  Randomize;
  for i := 1 to M do begin
    //Случайные целые числа из диапазона 0...10.
    Arr[i] := Random(11);
  end;
 
  //Распечатываем исходный массив.
  Memo1.Lines.Add('Исходный массив:');
  StrTmp := '';
  for i := 1 to M do begin
    //Между соседними элементами печатаем знак горизонтальной табуляции.
    if StrTmp <> '' then begin
      StrTmp := StrTmp + Char(9);
    end;
    //Добавляем к строке значение элемента массива.
    StrTmp := StrTmp + IntToStr(Arr[i]);
    //В каждую строку помещаем по ColCount элементов.
    if i mod ColCount = 0 then begin
      Memo1.Lines.Add(StrTmp);
      StrTmp := '';
    end;
  end;
 
  //Подсчитываем количество нечётных элементов в массиве и проверяем:
  //меньше ли оно числа N.
  OddCount := 0;
  IsLessThanN := True;
  for i := 1 to M do begin
    if Odd(Arr[i]) then begin
      Inc(OddCount);
      if OddCount >= N then begin
        IsLessThanN := False;
        Break;
      end;
    end;
  end;
 
  //Если количество нечётных элементов в массиве меньше, чем N, тогда
  //ко всем элементам с чётными индексами добавляем единицу.
  if IsLessThanN then begin
    for i := 1 to M do begin
      if not Odd(i) then begin
        Arr[i] := Arr[i] + 1;
      end;
    end;
  end;
 
  //Распечатываем массив.
  Memo1.Lines.Add('Массив после преобразования:');
  StrTmp := '';
  for i := 1 to M do begin
    //Между соседними элементами печатаем знак горизонтальной табуляции.
    if StrTmp <> '' then begin
      StrTmp := StrTmp + Char(9);
    end;
    //Добавляем к строке значение элемента массива.
    StrTmp := StrTmp + IntToStr(Arr[i]);
    //В каждую строку помещаем по ColCount элементов.
    if i mod ColCount = 0 then begin
      Memo1.Lines.Add(StrTmp);
      StrTmp := '';
    end;
  end;
 
end;