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

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

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

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

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

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

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

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

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

cons
SIZE = 5
va
X, Y, Z: array [0..SIZE-1] of integer
begi
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.