// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln('Массив X'); var x:=ArrRandom(n,-99,99); x.Println;
Writeln('Массив Y'); var y:=ArrRandom(n,-99,99); y.Println;
var t:=new integer[n];
var k:=0;
for var i:=0 to n-1 do
if x[i]>=y[i] then begin t[i]:=x[i]; k+=1 end
else t[i]:=y[i];
Writeln('Массив T'); t.Println;
Writeln('Элементы массива Х вошли в Т ',k,' раз(а)')
end.
Пример
n= 13
Массив X
13 67 -76 -28 -61 -3 -54 35 -37 -36 -8 -17 -4
Массив Y
16 80 11 -66 19 -74 94 -93 -66 -41 44 11 46
Массив T
16 80 11 -28 19 -3 94 35 -37 -36 44 11 46
Элементы массива Х вошли в Т 5 раз(а)