Вставить после всех строк, содержащих минимальный элемент массива, строку 2, 4, 6,… (Delphi)

[yana1213]

Вставить после всех строк, содержащих минимальный элемент массива, строку 2, 4, 6,…

[doktor255]

То есть по поводу бессмысленных названий тем полный игнор? Не удивляйтесь, что и Ваши вопросы будут игнорировать

[ZX Spectrum-128]

Минимальный элемент найти не проблема. Зайдите в faq на форуме, возьмите оттуда код, подработайте под свою задачу и возвращайтесь обратно. Будем решать вторую часть.

[yana1213]

var
  a: array[1..100,1..100]of integer;
  i, j, min, max:integer;
  minPosX,MinposY,MAXposX,MAXPosY:byte;
begin
 
  Randomize;
  min:=a[1,1]; // значение min (в начале =0)
 
  minposX:=1; minPosy:=1; // позиция min
  

  for i:=1 to n do
  begin
    for j:=1 to M do
    begin
      a[i,j]:=Random(100);
      // Ищем МИН
      if a[i,j]<=min then
      begin
        min:=a[i,j];
        minposX:=j;
        minposY:=i;
      end;

вот код на отыскание минимального элемента, а как сделать вторую часть? делается в StringGrid

[ZX Spectrum-128]

Не забудьте, что у вас может быть несколько минимальных элементов.

Код, который вы представили, неверен. Исправил.

var
  a: array of array of integer;
  m,n,i, j, min, max:integer;
  minPosX,MinposY,MAXposX,MAXPosY:integer;

begin
  n:=5; m:=5;
  Setlength(a,n,m);
  Randomize;

  for i:=low(a) to high(a) do
    begin
      for j:=low(a) to high(a) do
        a[i,j]:=Random(100);
    end;

  min:=a[0,0]; // значение min (в начале =0)
  minposX:=0; minPosy:=0; // позиция min

  for i:=low(a) to high(a) do
    begin
      for j:=low(a) to high(a) do
        begin
          // Ищем МИН
          if a[i,j]<=min then
            begin
              min:=a[i,j];
              minposX:=i;
              minposY:=j;
            end;
        end;
    end;

  for i:=low(a) to high(a) do
    begin
      for j:=low(a) to high(a) do
        begin
          write(a[i,j]:3);
        end;
      writeln;
    end;
  writeln('Минимум = ',min);
  writeln('в строке ',minposX+1,' и в столбце ',minposY+1);
  readln;
end.

[yana1213]

как этот код переделать на язык object pascal и чтобы результат программы выводился в поле memo

[ZX Spectrum-128]

Это и есть object pascal. Не торопитесь, вторая часть задачи не решена.

[yana1213]

просто предыдущие задания я выводила вот так

procedure TForm2.Button2Click(Sender: TObject);
var i, k, temp:integer;
    m, n, x:integer;                   // переменная для количества элементов массива
    a1:array of integer;        //описываем массив результата работы программы
    s: string; //переменная для строки Мемо
begin
    SetLength(a1,N+N);           //выделяем память для динамического массива  результата работы программы
    m:=0; i:=0;                       //обнуляем переменные
   //задание 1:
  if CheckBox1.Checked then        //если выбран  CheckBox1 то
  while(i<N)do                        // выполняется цикл пока не конец массива
  if a[i] mod 10=0 then            //проверяем оканчивается ли элемент на цифру 0
  i:=i+1                          //переходим к следующему элементу
   else                     //если нет то
      begin
        a1[m]:=a[i] ;     // записываем элемент в массив результата
        m:=m+1;             //увеличиваем длину массива
        i:=i+1;                //переходим к следующему элементу
      end;
       for i:=0 to m-1 do                      // вывод результата массива
  s:=s+IntToStr(a1[i])+' ';
  memo2.clear;                   //очищаем поле memo2
  Memo2.Lines.Add(s);

вот тут у меня нет ни Writeln, ни readln

[ZX Spectrum-128]

Вывод в Мемо?

  for i:=low(a) to high(a) do
    begin
      s:='';
      for j:=low(a) to high(a) do
        s:=s+IntToStr(a[i,j])+' ';
      Memo1.Lines.Add(s);
    end;

Процедуры удаления и вставки в динамический массив:
http://www.programmersforum.ru/showthread.php?t=206694

[yana1213]

а как будет выглядеть вторая часть программы?