Есть 2 массиваиз 10 элементов. создайте третий массив, элементы которого равны сумме элементов из двух первых массивов.

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.

В программе не реализован вывод третьего массива на экран, т.к. это требование отсутствует согласно условию задания.