2. Определить, есть ли в массиве Х(n,m) элемент равный L, где L – произвольноечисло. Ответ дать в виде: «Да, есть» или «Элемента нет».

Объ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.яснение: