сравнить попарно элементы двух массивов и при совпадение записать этот элемент в третий массив при не совпадении обнулить в новом массивена паскаль СРОЧНО!​

вот код на Pascаl, который сравнивает попарно элементы двух массивов и записывает совпадающие элементы в третий массив, а несовпадающие - обнуляет в новом массиве:

program compare_arrays;

const

n = 5; {размер массивов}

var

a, b, c: array[1..n] of integer;

i: integer;

begin

{заполнение массивов случайными числами}

randomize;

for i := 1 to n do

begin

a[i] := random(10); {числа от 0 до 9}

b[i] := random(10);

end;

{вывод исходных массивов}

writeln('Array A:');

for i := 1 to n do

write(a[i], ' ');

writeln;

writeln('Array B:');

for i := 1 to n do

write(b[i], ' ');

writeln;

{сравнение массивов}

for i := 1 to n do

begin

if a[i] = b[i] then

c[i] := a[i] {если элементы равны - записываем в новый массив}

else

c[i] := 0; {если элементы не равны - обнуляем}

end;

{вывод нового массива}

writeln('Array C:');

for i := 1 to n do

write(c[i], ' ');

writeln;

readln;

end.

Например, при запуске программы результат может быть таким:

Array A:

5 9 0 1 7

Array B:

2 8 9 6 7

Array C:

0 0 0 0 7

В этом случае массивы A и B заполняются случайными числами от 0 до 9, а массив C содержит либо совпадающие элементы из массивов A и B, либо нули. В данном примере элементы, которые совпали, находятся только в последней позиции массивов A и B, поэтому в новом массиве C не нулевые элементы только на этой позиции.