Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи на заказ _ ДВУХМЕРНЫЙ МАССИВ (МАКС И МИН)

Автор: HACKERKS 4.06.2007 19:33

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

Автор: hell17 4.06.2007 19:50

Цитата(HACKERKS @ 4.06.2007 16:33) *

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


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


Автор: Tan 4.06.2007 20:05

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

Автор: О_Джей_Симпсон 4.06.2007 23:11

Цитата(HACKERKS @ 4.06.2007 16:33) *

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


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


Автор: Шарков Сергей 4.06.2007 23:20

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

Автор: sonic 4.06.2007 23:53

Господа 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 6.06.2007 0:34

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