Консультация № 113788
13.12.2007, 13:13
0.00 руб.
0 1 1
Привет всем! Помогите решить задачку! Help! В матрице (без разницы в какой) найти МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ в каждой строке и в каждем столбце. Зарание спасиб.

Обсуждение

давно
Старший Модератор
31795
6196
13.12.2007, 16:00
общий
это ответ
Здравствуйте, Лесников!

Смотрите приложение.
Удачи!

Приложение:
program q113788; const n=10; var a:array[1..n,1..n]of integer; i,j,x:integer; begin randomize; {создаем случайную матрицу} for i:=1 to n do for j:=1 to n do a[i,j]:=random(1000); {выводим и сразу ищем максимум в строке} for i:=1 to n do begin x:=a[i,1]; for j:=1 to n do begin write(a[i,j]:6); if a[i,j]>x then x:=a[i,j]; end; writeln(‘ maxLine:‘,x); end; {ищем и выводим максимум в колонке} writeln(‘maxColum‘); for i:=1 to n do begin x:=a[1,i]; for j:=1 to n do if a[j,i]>x then x:=a[j,i]; write(x:6); end; end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа