сравнить попарно элементы двух массивов и при совпадение записать этот элемент в третий массив при не совпадении обнулить в новом массиве
на паскаль СРОЧНО!
Ответы
вот код на 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 не нулевые элементы только на этой позиции.