1. const n=15; var c:array[1..n] of integer; i,j,t:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin c[i]:=Random(51)-25; Write(c[i],' ') end; Writeln; for i:=1 to n-1 do for j:=1 to n-i do if c[j]>c[j+1] then begin t:=c[j]; c[j]:=c[j+1]; c[j+1]:=t end; Writeln('Отсортированный массив:'); for i:=1 to n do Write(c[i],' '); Writeln end.
2. const n=10; m=7; var c1_2:array[1..n,1..m] of integer; i,j,t:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin c1_2[i,j]:=random(100); write(c1_2[i,j]:4); end; writeln; end; for j:=1 to m do begin t:=c1_2[5,j]; c1_2[5,j]:=c1_2[7,j]; c1_2[7,j]:=t; end; writeln('Преобразованный массив:'); for i:=1 to n do begin for j:=1 to m do write(c1_2[i,j]:4); writeln; end; end.
