ЗАДАЧА. Составить 2 массива с одинаковым количеством элементов по правилу: 1 массив кратен числу L, второй числу M. при

Сумма элементов вычисляется через цикл, а затем результат выводится на экран.

var A:array[1..5] of integer; B:array[1..7] of integer; sum_of_A:integer; sum_of_B:integer;

begin

write(\'Массив А:\'); for i:integer:=1 to 5 do begin A[i]:=random(20); write(A[i]:5); sum_of_A:=sum_of_A+A[i]; end; writeln; write(\'Массив В:\'); for i:integer:=1 to 7 do begin B[i]:=random(20); write(B[i]:5); sum_of_B:=sum_of_B+B[i]; end; writeln; writeln(\'Разность суммы элементов массива А и В = \', sum_of_A-sum_of_B,\'.\'); end.