Объединить массивы так, чтобы в массиве-результате элементы были упорядочены по возрастанию

@Ризат · Регистрация: 22.04.2015

Author24 — интернет-сервис помощи студентам

Даны два действительных массива x и y. Объединить их так, чтобы в массиве-результате элементы были упорядочены по возрастанию.

@JuriiMW · 01.06.2015, 13:21

Pascal

uses
  Arrays;
  
begin
  /// Массивы заполним с консоли
  var Sx := ReadInteger('Размер массива x:');
  var x : array of Real; SetLength(x, Sx);
  for var i := 1 to Sx do x[i-1] := ReadReal('Введите x[' + i.ToString + '] =');
 
  var Sy := ReadInteger('Размер массива y:');
  var y : array of Real; SetLength(y, Sy);
  for var i := 1 to Sy do y[i-1] := ReadReal('Введите y[' + i.ToString + '] =');
  
  WriteLn('Введены 2 массива:', NewLine, 'x = ', x, NewLine, 'y = ', y);
 
  /// Объединение в массив z
  var z : Array of Real; SetLength(z, Sx + Sy);
  var i := 0;
  for var n := 0 to Sx-1 do
    begin
      z[i] := x[n]; i += 1;
    end;
  for var n := 0 to Sy-1 do
    begin
      z[i] := y[n]; i += 1;
    end;
  Sort(z);
  WriteLn('Получен массив:', NewLine, 'z = ', z);
end.

@Ризат 0 / 0 / 0 Регистрация: 22.04.2015 Сообщений: 20
		1
	Объединить массивы так, чтобы в массиве-результате элементы были упорядочены по возрастанию 01.06.2015, 07:37. Показов 1961. Ответов 1 Метки нет (Все метки) Даны два действительных массива x и y. Объединить их так, чтобы в массиве-результате элементы были упорядочены по возрастанию. 0

	01.06.2015, 13:21

Объединить массивы так, чтобы в массиве-результате элементы были упорядочены по возрастанию

Решение