Массив.

[Genzal]

Как это сделать, я не понимаю. Вот в массиве нашли в максимальные элементы каждой строки. Как сделать чтобы максимальные элементы встали в середину каждой своей строки. Ещё вопрос если я хочу добавить пределы для значение L чтобы не только было четное но и не больше 20(через repeat).
Вот так звучит задание: В каждой строке А(K,L), K <= 15, L <= 20 наибольший элемент расположить в середине строки.

Const K=15;
      L=20;
var
  A: array[1..K, 1..L] of integer;
  i, j, N, M: byte;
  MaxElem: integer;
begin
repeat
 write('Кол-во строк K = ');
 readln(M);
 until M in [2..L];
repeat
 write('Кол-во столбцов L = ');
 readln(N);
until Odd(N);
  randomize;
  writeln('Случайная матрица ', M, 'x', N, ':');
  for i := 1 to M do begin
    for j := 1 to N do begin
      a[i, j] := -100 + random(200);
      write(a[i, j]:4)
    end;
    writeln
  end;
  writeln;
  writeln('Максимальный элемент в каждой строке:');
  for i := 1 to M do begin
    MaxElem := a[i, 1];
    for j := 2 to N do 
      if a[i, j] > MaxElem then MaxElem := a[i, j];
    writeln(i, '-я строка: максимальный элемент = ', MaxElem)
  end;
  readln
end.

[p51x]

Как сделать чтобы максимальные элементы встали в середину каждой своей строки.

Запомнить индекс максимального элемента и поменять элемент с данным индексом и серединным.

[Genzal]

Не понял

[p51x]

Обычно с такими задачами и дети справляются. Ладно, вот еще проще объяснение: Перед вами лежит ряд белых кубиков и один из них красный. Надо поместить красный по середине. Что делать? Ищем красный - нашли, например, 3-й. Теперь ищем середину - допустим у нас 9 элементов всего, середина - элемент с номером 5. Берем и меняем 3 и 5 кубик местами. Так понятнее?

[digitalis]

И не лишним будет, видимо, напомнить, учитывая уровень ТС, что обмен типа

  a[i,j] := a[i,k] ;
  a[i,k] := a[i,j] ;

не прокатывает, придется делать так:

  tmp := a[i,k] ;
  a[i,k] := a[i,j] ;
  a[i,j] := tmp ;

[Genzal]

Я просто тупой походу уже неделю сижу и не могу сделать.

[Serge_Bliznykov]

Сообщение от Genzal

уже неделю сижу и не могу сделать.

очень плохо. тут и полчаса нечего делать!


давайте вместе решим.

1) Вам нужно найти не сам максимальный элемент, а его номер (индекс в строке)
т.е.

  writeln('Максимальный элемент в каждой строке:');
  for i := 1 to M do begin
    MaxElemIndex := 1;
    for j := 2 to N do 
        if a[i, j] > a[i, MaxElemIndex] then MaxElemIndex := j;
    writeln(i, '-я строка: максимальный элемент = ', a[i, MaxElemIndex]);
    
    <а тут надо поменять средний элемент  i-й строки с элементом с индексом MaxElemIndex >

  end;

теперь нужно сделать "поменять средний элемент i-й строки с элементом с индексом MaxElemIndex"

для этого подумайте
1) какой индекс имеет средний элемент?
2) как можно применить код из #5 для обмена двух элементов массива
3) написать код, проверить. Если есть вопросы - выложить полученный код на форум и задать доп.вопрос.

так понятней?

[Genzal]

Сообщение от Serge_Bliznykov

очень плохо. тут и полчаса нечего делать!

У меня получилось вывести индексы максимального элемента каждой строки, нашёл середину, но при переприсваивание я где-то ошибся. И не уверен, что так надо середину строки находить.

const
  L = 15; K = 20;
var
  a: array [1..L, 1..K] of integer;
  i, j,n,m: integer;
  jk, ik,tmp, max,F: integer;
  z:real;
begin
repeat
 write('Кол-во строк K = ');
 readln(M);
 until M in [2..L];
repeat
 write('Кол-во столбцов L = ');
 readln(N);
until Odd(N);
randomize;
  for i := 1 to m do
  begin
    max := 1;
    for j := 1 to n do
    begin
      a[i, j] :=random(50)+1;
      write(a[i, j]:4);
      if a[i, j] > a[i, max] then
      begin
        a[i, max] := a[i, j]; 
        ik := i;
        jk := j;
      end;
    end;
    write( '   |' ' max = ':8, a[ik, max]:4, ', строка: ':4, ik, ', столбец: ':8, jk);
    writeln;
  end;
  Z:=(N/2)+0.5;
  writeln ('Середина строки: ', Z);
   write('Введите значение Z = ');
 readln(F);
for i:=1 to n do
  begin
    tmp:=a[i,F];
    a[i,F]:=a[i,jk];
    a[i,jk]:=tmp;
 end;
   for j:=1 to m do
  begin
    tmp:=a[F,j];
    a[F,j]:=a[ik,j];
    a[ik,j]:=tmp;
  end;
  writeln('Полученный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:5);
    writeln;
  end;
  readln;
end.