Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Заполнить двумерный массив 3x4 случайными числами в интервале [-50..50] и отсортировать построчно по возрастанию.

Ответ оставил Гость

Program t1;
var
  i, j: integer;
  mas: array [1..10] of integer;
begin
    randomize;
    writeln (сгенерированный масив: );
    for i := 1 to 3 do
        writeln;
        for j := 1 to 4 do
        begin
           mas[i,j] := random (100) - 50;
           write (mas[i,j]);
        end;
    end;

    begin
    for i:=1 to 3 do
      for i:=1 to 3 do
        for k:=1 to 3-i do
           if M[k] > M[k+1] then swap(mas[k],mas[k+1])
        end
      end; 
    end;
    writeln (отсортированный по возрастанию массив (построчно): );
    for i := 1 to 3 do
        writeln;
        for j := 1 to 4 do write (mas[i,j]);
    end;
end;
end.