Дан двумерный массив A N*N). Сформировать двумерный упорядоченныймассив (А 11<=A 12<= .<=A 23<=.<=A nn)

@serkhan21 · Регистрация: 10.12.2019

Дан двумерный массив A(N*N). Сформировать двумерный упорядоченный массив (А11<=A12<= ...<=A23<=...<=Ann).

@Puporev · 10.12.2019, 15:31

Pascal

const nmax=10;
procedure Swap(var a,b:integer);
var tmp:integer;
begin
tmp:=a;
a:=b;
b:=tmp;
end;
var a:array[0..nmax-1,0..nmax-1] of integer;
    n,i,j,k:byte;
    x:integer;
begin
repeat
randomize;
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=11+random(90);
    write(a[i,j]:4);
   end;
  writeln;
 end;
//сортировка массива по возрастанию
for i:=0 to n*n-2 do
for j:=i+1 to n*n-1 do
if a[i div n,i mod n]>a[j div n,j mod n]
then Swap(a[i div n,i mod n],a[j div n,j mod n]);
writeln('Отсортированный массив по возрастанию');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:4);
  writeln;
 end;
 end.

@serkhan21 0 / 0 / 0 Регистрация: 10.12.2019 Сообщений: 1
		1
	Дан двумерный массив A NN). Сформировать двумерный упорядоченныймассив (А 11<=A 12<= .<=A 23<=.<=A nn) 10.12.2019, 10:50. Просмотров* 214. Ответов 1 Метки нет (Все метки) Дан двумерный массив A(N*N). Сформировать двумерный упорядоченный массив (А11<=A12<= ...<=A23<=...<=Ann). 0

Опции темы