Ответы и объяснения

Лучший Ответ!
  • Участник Знаний
2014-03-30T23:38:46+04:00
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.