В матрице A найти строку с наименьшим элементом и упорядочить элементы этой строки по возрастанию.Результат записать в матрицу Б. Элементы матрицы А вычисляется по формуле a_{ij} =sinj(1-sini),где i,j=1,2...10.Pascal.Через процедуры

Предыдущий
вопрос Следующий
вопрос

procedure findMinRowAndSort();
var
A, B: array[1..10,1..10] of real;
minElement: real;
minRowIndex: integer;
i, j: integer;

begin
// Заполняем матрицу A
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
A[i,j] := sin(j) * (1 - sin(i));
end;
end;

// Находим строку с наименьшим элементом
minElement := A[1,1];
minRowIndex := 1;

for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
if A[i,j] < minElement then
begin
minElement := A[i,j];
minRowIndex := i;
end;
end;
end;

// Сортируем элементы найденной строки по возрастанию
for i := 1 to 10 do
begin
B[i] := A[minRowIndex,i];
end;

// Сортировка пузырьком
for i := 1 to 9 do
begin
for j := i+1 to 10 do
begin
if B[i] > B[j] then
begin
// Меняем местами элементы
temp := B[i];
B[i] := B[j];
B[j] := temp;
end;
end;
end;

// Выводим матрицу B
writeln('Отсортированная строка с наименьшим элементом:');
for i := 1 to 10 do
begin
writeln(B[i]:0:2);
end;

end;

begin
findMinRowAndSort();
end.