Дан двумерный массив a размерностью м*n. отсортировать все строки по возрастанию значений элементов.

281

382

Посмотреть ответы 2

Ответы на вопрос:

Lera096811hk

Информатика

4,8(95 оценок)

Const m = 10; // количество строк n = 10; // количество столбцов var arr: array [1..m, 1..n] of integer; i,j,z,min,temp : integer; begin for j : = 1 to m do for i : = 1 to n do arr[j, i] : = random(99); writeln('исходный массив: '); for j : = 1 to m do begin for i : = 1 to n do write(arr[j, i] : 2, ' '); writeln; end; for j : = 1 to m do begin for i : = 1 to n - 1 do begin min : = i; for z : = i + 1 to n do if arr[j, z] < arr[j, min] then min : = z; temp : = arr[j, min]; arr[j, min] : = arr[j, i]; arr[j, i] : = temp; end; end; writeln; writeln('отсортированный массив'); for j : = 1 to m do begin for i : = 1 to n do write(arr[j, i] : 2, ' '); writeln; end; end.