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

[Ella]

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

Необходимо определить минимальные элементы и их расположение (номер строки и столба) для матрицы А (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.

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

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

 

[Vladimir_S]

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

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

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

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