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

Question

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

Answer 1

program z1;
uses crt;
var i,l,m:integer;
a,b:array[1..20] of integer;
begin
randomize;
repeat
writeln('ââåäèòå L è M');
readln(l,m);
until l<>m;
for i:=1 to 20 do
begin
repeat
a[i]:=random(200);
until a[i] mod l=0;
write(a[i]:4);
end;
writeln;
for i:=1 to 20 do
begin
repeat
b[i]:=random(200);
until b[i] mod m=0;
write(b[i]:4);
end;
end.