Даны массивы А(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  // получаем 5 чисел случайных и записываем их в массив

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  // получаем 10 чисел случайных и записываем их в массив

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.