Написать процедуру SUM (X,Y,Z), которая каждому элементу массива Z присваивает значение суммы соответствующих элементов массивов X Y. Использовать дополнительные процедуры создания массива случайных чисел, вывода массива на экран ПК.

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

Процедура генерации массива случайных чисел:

procedure generate_random_array(var arr: array of integer; size: integer);
var
i: integer;
begin
randomize;
for i := 0 to size - 1 do
begin
arr[i] := random(100); // генерация случайного числа от 0 до 99
end;
end;

Процедура вывода массива на экран:

procedure print_array(arr: array of integer; size: integer);
var
i: integer;
begin
for i := 0 to size - 1 do
begin
write(arr[i], ' ');
end;
writeln;
end;

Процедура SUM (X,Y,Z):

procedure SUM(X, Y, Z: array of integer; size: integer);
var
i: integer;
begin
for i := 0 to size - 1 do
begin
Z[i] := X[i] + Y[i];
end;
end;

Пример использования:

const
SIZE = 5;
var
X, Y, Z: array [0..SIZE-1] of integer;
begin
generate_random_array(X, SIZE);
generate_random_array(Y, SIZE);

writeln('Массив X:');
print_array(X, SIZE);

writeln('Массив Y:');
print_array(Y, SIZE);

SUM(X, Y, Z, SIZE);

writeln('Массив Z после сложения X и Y:');
print_array(Z, SIZE);
end.