Написать программу, которая заполняет два одномерных массива случайными числами. Получить третий массив, элементы которого равны произведению соответствующих элементов исходных массивов. Pascal ABC

Предыдущий
вопрос Следующий
вопрос

program MultiplyArrays;
var
arr1, arr2, arr3: array[1..100] of Integer;
i, n: Integer;
begin
Randomize;

// Заполнение массивов случайными числами
writeln('Введите количество элементов массивов:');
readln(n);

writeln('Первый массив:');
for i := 1 to n do
begin
arr1[i] := Random(10); // случайное число от 0 до 9
write(arr1[i], ' ');
end;
writeln;

writeln('Второй массив:');
for i := 1 to n do
begin
arr2[i] := Random(10); // случайное число от 0 до 9
write(arr2[i], ' ');
end;
writeln;

// Умножение элементов массивов и заполнение третьего массива
writeln('Третий массив (произведение элементов):');
for i := 1 to n do
begin
arr3[i] := arr1[i] * arr2[i];
write(arr3[i], ' ');
end;

end.