profile
Опубликовано 6 лет назад по предмету Информатика от Katya55

друзья!9 задачка!)))))))))Помогите!)

  1. Ответ
    Ответ дан Аккаунт удален
    var
        arr: array[1..16,1..16] of integer;
        n,i,j,k: integer;
    begin
    write ('Исходный массив: ');
    for i:= 1 to 16 do
       begin
       writeln;
       for j:=1 to 16 do
         begin
         arr[i,j]:= random(10,77);
         write(arr[i,j]:3);
         end;
       end;
    writeln;
    for n:=1 to 8 do
      for i:= 1 to 8 do
        for j:= 1 to 7 do
          if arr[n,j]>arr[n,j+1] then
             begin
             k:= arr[n,j];
             arr[n,j]:= arr[n,j+1];
             arr[n,j+1]:= k
             end;
    write ('Массив с отсортированной четвертью: ');
    for i:= 1 to 16 do
      begin
      writeln;
      for j:=1 to 16 do
        write(arr[i,j]:3);
      end;
    end.
Самые новые вопросы