массив

[mishammm]

чесно говоря не знаю как играться с min и max в массивах. Помогите пожалуйста з задачкой:
есть массив а(6,8), нужно поменять строку что содержит минимальный елемент на строку что содержит максимальный елемент. Можно допустить что все елементы массива едины. (Turbo pascal)
(только без функции randomize)

[Vanta11a]

Если все элементы массива едины - ничего менять не надо, потому что все равны между собой.
Вы предлагаете заполнять массив без рандома? Месье знает толк в извращениях.
С учетом 64х сообщений - КОД ГДЕ? Хоть на С++, хоть на РНР, хоть на C#, хоть на Pascal`е.

[mishammm]

ну я признаюсь чесно что массивы не понял. поетому не знаю как написать код! прошу меня извинить

[Vanta11a]

Не поняли массивы? Получайте свою заслуженную пару и отчисляйтесь, если информатика у вас профилирующий предмет.
Если не профилирующий - идите во фриланс или агенство рефератов и заказывайте программу за деньги.
Почему другие должны бесплатно решать ваши проблемы, если вам влом?

[mishammm]

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

Не поняли массивы? Получайте свою заслуженную пару и отчисляйтесь, если информатика у вас профилирующий предмет.
Если не профилирующий - идите во фриланс или агенство рефератов и заказывайте программу за деньги.
Почему другие должны бесплатно решать ваши проблемы, если вам влом?

не ругайтесь пожалуйста, просто до меня новая тема тупо доходит и и в голове просто не формируеться алгоритм! Хорошо мне бы хотя бы алгоритм как должно быть

[Vanta11a]

1) Перебрать все элементы матрицы, найти минимальный и максимальный элемент, запомнить индексы строк с этими элементами
2) Если запомненные индексы равны - вывести соответствующее сообщение, закончить работу
3) Заменить строку с минимальным элементом на строку с максимальным

Третий пункт решается последовательным перебором с кодом вида

tmp := a1[min_index][i];
a1[min_index][i] = a1[max_index][i];
a1[max_index][i] := tmp;

[mishammm]

Благодарю вас

[mishammm]

program laba8;
 
var
  i, j, i_mx, i_mn: byte;
  min, max: integer;
  a: array [1 .. 6, 1 .. 8] of integer;
  b: array [1 .. 8] of integer;
 
begin
  randomize;
  writeln('Исходный массив: ');
  for i := 1 to 6 do
  begin
    for j := 1 to 8 do
    begin
      a[i, j] := random(20) - 10;
      write(a[i, j], ' ');
    end;
    writeln;
  end;
 
  writeln;
 
  min := a[1, 1];
  max := a[1, 1];
  i_mn := 1;
  i_mx := 1;
 
  for i := 1 to 6 do
    for j := 1 to 8 do
      if a[i, j] > max then
      begin
        max := a[i, j];
        i_mx := i;
      end
      else if a[i, j] < min then
      begin
        min := a[i, j];
        i_mn := i;
      end;
 
  writeln('Строка номер ', i_mx, ' содержит максмиальный элемент (', max, ')');
  writeln('Строка номер ', i_mn, ' содержит минимальный элемент (', min, ')');
 
  writeln;
 
  for j := 1 to 8 do
  begin
    b[j] := a[i_mn, j];
    a[i_mn, j] := a[i_mx, j];
    a[i_mx, j] := b[j];
  end;
 
  writeln('Конечный массив:');
  for i := 1 to 6 do
  begin
    for j := 1 to 8 do
      write(a[i, j], ' ');
    writeln;
  end;
 
  readln;
 
end.

вот как можно было писать прогу. немного помогли , немного в нете нарыл. но хз

[Vanta11a]

Верно, только непонятен смысл использования массива b вместо простой переменной.