Технический форум - Проверить правильность решения

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Проверить правильность решения – Паскаль.

Необходимо определить минимальные элементы и их расположение (номер строки и столба) для матрицы А (10, 15) и В (15, 12).

Вот код, для второй матрицы по аналогии...

Код HTML:

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.

У меня просьба. Правильный ли этот код и как можно упростить данный код, без использования функции random(100)?

Заранее благодарю.

Цитата:

Сообщение от Ella (Сообщение 502582)

У меня просьба. Правильный ли этот код

Да вроде ошибок не видно...

Цитата:

и как можно упростить данный код, без использования функции random(100)?

Можно-то можно, только вот была Вам охота всю матрицу с клавиатуры вводить! Зачем?