Задан двухмерный массив. расположить все элементы матрицы в строку в порядке возрастания: ( в чем ошибка? программа не идет): program niv; const n=2; m=2; var i,j,d: integer; c: real; a: array[1..m,1..n] of real; begin for i: =1 to n do; begin a[i,j]: =random (10)-5; a[i,j]: =random (10)-5; writeln(a[i,j]); end; for i: =1 to m do begin for j: =1 to n-1 do begin for d: =1 to n-j do begin if a[i,d]> a[i,d+1]then begin c: =a[i,d]; a[i,d]: =a[i,d+1]; a[i,d+1]: =c; end; end; end; end; writeln('сортировка'); for i: =1 to m do begin for j: =1 to n do begin writeln(a[i,j]); writeln(a[2,j]); end; end; end.

olena4519    2   26.07.2019 10:40    0