Найти максимальный элемент каждого столбца и минимальный элемент каждой строки

@overlord754 · Регистрация: 24.10.2009

Студворк — интернет-сервис помощи студентам

В матрице размером NxN найти макс элемент каждого столбца и мин элемент каждой строки. Полученные числа вывести в двух одномерных массивах.
Народ задача вроде простая, но я запутался...помогите.

@SergioRZN · 02.05.2010, 13:04

ну ты выложи код что сам наворганил, а исправить дело пустяковое)

@overlord754 · 02.05.2010, 16:22 **[ТС]**

Pascal

for i:=1 to n do
 begin
 for j:=1 to n do
   begin
   if a[i,j]>aMin then  aMin:=a[i,j];
   end;
   b[i]:=aMin;
   end;

эта часть кода должна искать мин элемент каждой строки, но выводит какую-то фигню

Добавлено через 3 часа 9 минут
?????

@Rayne · 02.05.2010, 16:40

не самый компактный вариант:

Pascal

uses crt;
var
ms : array [1..10,1..10] of integer;
a,b,n,min,max : integer;
reg,reg2 : array [1..10] of integer;
begin
clrscr;
randomize;
readln(n);
for a:=1 to n do begin
for b:=1 to n do begin
ms[a,b]:=random(10);
write(ms[a,b],' ');
end;
writeln;
end;
min:=10;
for a:=1 to n do begin
for b:=1 to n do
if ms[a,b]<min then min:=ms[a,b];
reg[a]:=min;
min:=10;
end;
for a:=1 to n do begin
for b:=1 to n do
if ms[b,a]>max then max:=ms[b,a];
reg2[a]:=max;
max:=0;
end;
writeln;
write('Минимумы строк: ');
for a:=1 to n do write(reg[a],' ');
writeln;
write('Максимумы столбцов: ');
for a:=1 to n do write(reg2[a],' ');
readkey;
end.

@overlord754 60 / 22 / 9 Регистрация: 24.10.2009 Сообщений: 200
		1
	Найти максимальный элемент каждого столбца и минимальный элемент каждой строки 02.05.2010, 12:27. Показов 3956. Ответов 3 Метки нет (Все метки) В матрице размером NxN найти макс элемент каждого столбца и мин элемент каждой строки. Полученные числа вывести в двух одномерных массивах. Народ задача вроде простая, но я запутался...помогите. 0

@SergioRZN 135 / 29 / 7 Регистрация: 21.03.2010 Сообщений: 151
	02.05.2010, 13:04	2
	ну ты выложи код что сам наворганил, а исправить дело пустяковое) 0

	02.05.2010, 16:40

Опции темы