ДВУХМЕРНЫЙ МАССИВ (МАКС И МИН), Помоги решить а то не могу до здать практику задалбала она меня уже на Опции

[HACKERKS]

ДАНА МАТРИЦА B[N,M] найти в каждой строке матрицы максимальный и минемальный элемент и поменять их местами первым и последним элементом строки соответсвенно ПОМОГИТЕ КТО ЧЕМ МО ЖЕТ!

[hell17]

ДАНА МАТРИЦА B[N,M] найти в каждой строке матрицы максимальный и минемальный элемент и поменять их местами первым и последним элементом строки соответсвенно ПОМОГИТЕ КТО ЧЕМ МО ЖЕТ!

ok, стучись <censored>

!

Здесь не доска объявлений! Устное предупреждение..

Сообщение отредактировано: мисс_граффити - 5.06.2007 1:47

[Tan]

Поищи по форуму, очень похожее (если не то же самое) решалось.

Сообщение отредактировано: Tan - 4.06.2007 20:05

[О_Джей_Симпсон]

ДАНА МАТРИЦА B[N,M] найти в каждой строке матрицы максимальный и минемальный элемент и поменять их местами первым и последним элементом строки соответсвенно ПОМОГИТЕ КТО ЧЕМ МО ЖЕТ!

<censored>
50р.

!

Читаем правила. Пока что устное предупреждение.

Сообщение отредактировано: мисс_граффити - 5.06.2007 1:47

[Шарков Сергей]

50 рубл личка договоримся

[sonic]

Господа hell17, О_Джей_Симпсон, Шарков Сергей Вам не стыдно брать деньги за такое?
HACKERKS, вот примерный код программы:

uses crt;

var
 B: array[1..100, 1..100] of integer;
 N,M,el,i,j,eli,elj: integer;

begin
clrscr;
write('N: ');
readln(N);
write('M: ');
readln(M);
writeln('Исходная матрица B:');
randomize;

 for i:=1 to N do
 begin
  for j:=1 to M do
  begin
   B[i,j]:=random(100);
   write(B[i,j]:3,' ');
  end;
 writeln;
 end;

 writeln;

 for i:=1 to N do
 begin
  el:=B[i,1];
  elj:=1;
  for j:=2 to M do
   if(B[i,j] > el)then
   begin
    el:=B[i,j];
    elj:=j;
   end;
  B[i,elj]:=B[i,1];
  B[i,1]:=el;

  el:=B[i,1];
  elj:=1;
  for j:=2 to M do
   if(B[i,j] < el)then
   begin
    el:=B[i,j];
    elj:=j;
   end;
  B[i,elj]:=B[i,M];
  B[i,M]:=el;
 end;

 writeln('Конечная матрица  B: ');

 for i:=1 to N do
 begin
  for j:=1 to M do write(B[i,j],'':2);
  writeln;
 end;


repeat until keypressed;
end.

Если ещё будут какие-либо вопросы, задавай их на форуме, не стесняйся ;)

[Korsar]

Да уж точно... За такое и деньги берут!!! Какие вы все алчные!!!