Задан двухмерный массив. расположить все элементы - вопрос №5489823 от milanapsh 05.12.2021 23:59

Question

Информатика: Задан двухмерный массив. расположить все элементы матрицы в строку в порядке возрастания: ( в чем ошибка? программа не идет): 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( сортировка

milanapsh · Answer

Program niv;const n=4; m=4;var i,j,d:integer;c:real;a:array[1..m,1..n] of real;beginRandomize;for i:=1 to m do begin  for j:=1 to n do   begin   a[i,j]:=random(10)-5;   write(a[i,j]:3);   end; writeln; end;for i:=1 to m do for j:=1 to n-1 do    for d:=1 to n-j do    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;writeln( сортировка );for i:=1 to m do  begin for j:=1 to n do write(a[i,j]:3); writeln; end;end....