Даны массивы А (5) и В (10). Вычислить суммы соответствующих элементов массивов. (9 класс) В паскале

program zz1;

var i, s:integer; / / задаем переменные целого типа

a:array [1 ... 5] of integer;

b:array [1 ... 10] of integer;

begin

for i:=1 to 5 do / / получаем пять чисел случайных и записываем их в массив

a[i]:=random (51);

for i:=1 to 5 do / / выводим полученный массив на экран

write (a[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to 5 do

s:=s + a[i]; / / получаем сумму

writeln (' сумма первого массива = ', s); / / выводим ответ

s:=0;

for i:=1 to 10 do / / получаем десять чисел случайных и записываем их в массив

b[i]:=random (51);

for i:=1 to 10 do / / выводим полученный массив на экран

write (b[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to 10 do

s:=s + b[i]; / / получаем сумму

writeln (' сумма второго массива = ', s); / / выводим ответ

end.