Помощь - Поиск - Пользователи - Календарь
Полная версия: ДВУХМЕРНЫЙ МАССИВ (МАКС И МИН)
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи > Задачи на заказ
HACKERKS
ДАНА МАТРИЦА B[N,M] найти в каждой строке матрицы максимальный и минемальный элемент и поменять их местами первым и последним элементом строки соответсвенно ПОМОГИТЕ КТО ЧЕМ МО blink.gif ЖЕТ!
hell17
Цитата(HACKERKS @ 4.06.2007 16:33) *

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


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

Tan
Поищи по форуму, очень похожее (если не то же самое) решалось.
О_Джей_Симпсон
Цитата(HACKERKS @ 4.06.2007 16:33) *

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


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

Шарков Сергей
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
Да уж точно... За такое и деньги берут!!! Какие вы все алчные!!! sad.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.