1. Дан одномерный массив C1[1..15]. Требуется упорядочить его в порядке нестрогого...

Question

1. Дан одномерный массив C1[1..15]. Требуется упорядочить его в порядке нестрогого убывания.

2. Дан двумерный массив C1_2[1..10, 1..7]. Требуется поменять местами его 5-ю и 7-ю строки.

Comments

Написать на языке программирования Pascal, на уровне 11 классника :)

Answer 1

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.

Пример:
Исходный массив:
4 10 7 -2 -3 22 0 0 -18 1 9 21 -7 3 25
Отсортированный массив:
-18 -7 -3 -2 0 0 1 3 4 7 9 10 21 22 25

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.

Пример:
Исходный массив:
  42  71   0  63  70  87  49
  37  60  15  94  34  28  50
  44  65  71  76  83   0  52
  53  98   4  59  67  32  20
  74  20  43  86   8  56  85
  51  36  35  37  53  32  11
  50  45  22  63   0   7  52
  48   3  81  27   3  36   3
  57  57  88  14  69  13   3
   2  95  57  63  74  77  91
Преобразованный массив:
  42  71   0  63  70  87  49
  37  60  15  94  34  28  50
  44  65  71  76  83   0  52
  53  98   4  59  67  32  20
  50  45  22  63   0   7  52
  51  36  35  37  53  32  11
  74  20  43  86   8  56  85
  48   3  81  27   3  36   3
  57  57  88  14  69  13   3
   2  95  57  63  74  77  91

Answer 2

1.