Ввести 2 одномерных массива A и B целого типа сформировать новый массив C, переписав в...

Question

Ввести 2 одномерных массива A и B целого типа сформировать новый массив C, переписав в него массив c наименьшим количеством нулей,а затем -массив с большим количество нулей.
Помогите пожалуйста

Answer 1

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Write('Укажите длины массивов А и В: ');
  var (n1,n2):=ReadInteger2;
  var a:=ArrRandom(n1,-5,5); Write('A: '); a.Println;
  var b:=ArrRandom(n2,-5,5); Write('B: '); b.Println;
  (n1,n2):=(a.Where(x->x=0).Count,b.Where(x->x=0).Count);
  var c:array of integer;
  if n1<=n2 then c:=a.Concat(b).ToArray<br>  else c:=b.Concat(a).ToArray;
  Write('C: '); c.Println
end.

Пример
Укажите длины массивов А и В: 10 8
A: 0 4 4 1 4 0 -2 0 5 -3
B: 0 -3 5 4 -1 -2 5 1
C: 0 -3 5 4 -1 -2 5 1 0 4 4 1 4 0 -2 0 5 -3

Comments

Спасибо