Даны два вектора{xi}, {yi}, i = 1, ..., 10, упорядоченные по возрастанию. Соедините их в один вектор {z1}, i = 1, ..., 20 так, чтобы сохранилась

132

209

Посмотреть ответы 2

Ответы на вопрос:

толя151

Другие предметы

4,4(40 оценок)

program sliyanie;
type vector=array[1..20]of integer;
var x,y,z:vector;
    k,i:byte;
    a:integer;

begin
{заполнение массива X генерацией случайных чисел от 0 до 99}
for i:=1 to 10 do
  begin
    x[i]:=random(99); write('x[':3,i,']=',x[i]:2);
  end;
writeln;
writeln;
{заполнение массива Y генерацией случайных чисел от 0 до 99}
for i:=1 to 10 do
  begin
    y[i]:=random(99); write('y[':3,i,']=',y[i]:2);
  end;
writeln;
writeln;
{слияние массивов}
for i:=1 to 10 do
  begin
    z[i]:=x[i];
    z[i+10]:=y[i];
  end;
for i:=1 to 20 do write('z[':3,i,']=',z[i]:2);
writeln;
writeln;
{сортировка}
for k:=1 to 19 do
  for i:=1 to 19 do
    if z[i]>z[i+1] then
      begin
        a:=z[i];
        z[i]:=z[i+1];
        z[i+1]:=a;
      end;
for i:=1 to 20 do write('z[':3,i,']=',z[i]:2);
end.