VAR
A, B, C: ARRAY [1..10] OF INTEGER; //массивы
i: BYTE; //счетчик цикла
BEGIN
FOR i := 1 TO 10 DO
READ (A[i]); //заполняем первый массив
READ (B[i]); // заполняем второй массив
C[i] := A[i]+B[i]; //суммируем элементы
END.
В программе не реализован вывод третьего массива на экран, т.к. это требование отсутствует согласно условию задания.
VAR
A, B, C: ARRAY [1..10] OF INTEGER; //массивы
i: BYTE; //счетчик цикла
BEGIN
FOR i := 1 TO 10 DO
READ (A[i]); //заполняем первый массив
FOR i := 1 TO 10 DO
READ (B[i]); // заполняем второй массив
FOR i := 1 TO 10 DO
C[i] := A[i]+B[i]; //суммируем элементы
END.
В программе не реализован вывод третьего массива на экран, т.к. это требование отсутствует согласно условию задания.