18.04.2011, 13:43 | #1 (permalink) |
Member
Регистрация: 24.01.2011
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Матрица - минимальные элементы, через процедуры
Задача: Необходимо определить минимальные элементы и их расположение (номер строки и столба) для матрицы А (10, 15) и В (15, 12). Код:
Cоnst n = 10; m = 15; Type myMas = Array [ 1 .. n, 1 .. m ] of integer; Var a : myMas; i, j : Integer; sb, sr : integer; begin Randomize; for i := 1 to n do begin for j := 1 to m do begin a[ i, j ] := random(100); Write( a[ i, j ]:5 ); end; WriteLn; end; WriteLn; sb := 1; sr := 1; for i := 1 to n do for j := 1 to m do begin if a[ i, j ] < a[ sr, sb ] then begin sr := i; sb := j; end; end; < вывод sr, sb, a[ sr, sb ] > ReadLn; end. У меня просьба. Может ли кто-то написать мне этот код используя процедуры? А то я в них не очень... Может кто-то помочь? Спасибо большое. |
18.04.2011, 13:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Кто то уже создавал подобные темы на этом форуме Что за элементы? Элементы Пельтье Процедуры, функции Сенсорный выключатель (про элементы) Что это за элементы? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|