Язык Паскаль . Вводится одномерный массив A. Построить квадратный массив M , где M i j = A i + A j .

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

Пример решения на языке Паскаль:

program sum_array_elements;
const
MAX_SIZE = 100;
var
A, M: array[1..MAX_SIZE] of integer;
n, i, j: integer;
begin
write('Enter the size of the array: ');
readln(n);
writeln('Enter the elements of the array:');
for i := 1 to n do
begin
readln(A[i]);
end;
writeln('Result matrix M:');
for i := 1 to n do
begin
for j := 1 to n do
begin
M[i, j] := A[i] + A[j];
write(M[i, j], ' ');
end;
writeln;
end;
end.

Пользователь сначала вводит размер одномерного массива A, затем вводит элементы массива A. Затем программа строит квадратный массив M, где каждый элемент M[i, j] равен сумме элементов A[i] и A[j].