Расcтавить по возрастанию элементы 2 строки в двумерном массиве z[5,6] .язык паскаль

186

188

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

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

samirdebilGost

Информатика

4,7(76 оценок)

Var a: array [1..6, 1..5] of integer; i, j,n : longint; begin for i: = 1 to 6 do for j: = 1 to 5 do read (a[i, j]); writeln(); for j: = 1 to 5 do for i: = 1 to 5 do if a[2, i] > a[2, j] then swap(a[2, i], a[2, j]); for i: = 1 to 6 do begin for j: = 1 to 5 do write(a[i, j], ' '); writeln(); end; end.