1)дан массив из n элементов, n не больше 30. отсортировать по возрастанию элементы второй половины 2) дан массив из n элементов, n не более 30, n-четное. поменять местами первую и вторую половину ,
{ 1. Дан массив из n элементов, n не больше 30. отсортировать по возрастанию элементы второй половины }
const n=20; var k,x,i,j: integer; var a: array[1..n] of integer; begin if n mod 2 =0 then k:=(n div 2)+1 else k:=(n div 2)+2; writeln ('Исходный массив'); for i:=1 to n do begin a[i]:=random(100); write (a[i]:3); end; writeln; for i:=k to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin x:=a[i]; a[i]:=a[j]; a[j]:=x end; writeln; writeln ('Измененный массив'); for i:=1 to n do write (a[i]:3); end.
{ Дан массив из n элементов, n не более 30, n-четное. Поменять местами первую и вторую половину }
const n=20; var k,x,i: integer; var a: array[1..n] of integer; begin k:=(n div 2); writeln ('Исходный массив'); for i:=1 to n do begin a[i]:=random(100); write (a[i]:3); end; writeln; for i:=1 to k do begin x:=a[i]; a[i]:=a[i+k]; a[i+k]:=x end; writeln; writeln ('Измененный массив'); for i:=1 to n do write (a[i]:3); end.
const n=20;
var
k,x,i,j: integer;
var a: array[1..n] of integer;
begin
if n mod 2 =0
then k:=(n div 2)+1
else k:=(n div 2)+2;
writeln ('Исходный массив');
for i:=1 to n do begin
a[i]:=random(100);
write (a[i]:3);
end;
writeln;
for i:=k to n-1 do
for j:=i+1 to n do
if a[i]>a[j]
then begin x:=a[i]; a[i]:=a[j]; a[j]:=x end;
writeln;
writeln ('Измененный массив');
for i:=1 to n do
write (a[i]:3);
end.
Результат:
Исходный массив
52 49 94 71 98 80 83 94 26 59 66 74 97 59 27 32 90 97 43 37
Измененный массив
52 49 94 71 98 80 83 94 26 59 27 32 37 43 59 66 74 90 97 97
{ Дан массив из n элементов, n не более 30, n-четное. Поменять местами первую и вторую половину }
const n=20;
var
k,x,i: integer;
var a: array[1..n] of integer;
begin
k:=(n div 2);
writeln ('Исходный массив');
for i:=1 to n do begin
a[i]:=random(100);
write (a[i]:3);
end;
writeln;
for i:=1 to k do begin
x:=a[i];
a[i]:=a[i+k];
a[i+k]:=x
end;
writeln;
writeln ('Измененный массив');
for i:=1 to n do
write (a[i]:3);
end.
Результат:
Исходный массив
37 8 74 17 8 96 1 47 69 77 69 21 2 67 93 35 74 58 48 53
Измененный массив
69 21 2 67 93 35 74 58 48 53 37 8 74 17 8 96 1 47 69 77