сделайте из 2 массивов 1 Program Example2;var Rand: array[1. . 20] of integer;I, X, NumberX:integer;beginRandomize;writeln(' Masiv slychainix chisel: ');for I:=1 to 20 dobeginRand[I]:=random(50);write(Rand[I]:4)end;writeln;write(' Vvedite X: ');readln(X);NumberX:=0;for I:=1 to 20 doif Rand[I] = X then NumberX:=NumberX + 1;if NumberX = 0 then writeln('V masice net chisla ',X)else writeln(' Chislo ', X, ' v masive prisytsvyet ', NumberX, ' paz ');end. ​