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

esayanmamikon1 esayanmamikon1    1   03.09.2019 00:50    0

Ответы
мурзик55 мурзик55  06.10.2020 13:34
// 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
  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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика