20 INPUT"Введите размер массивов";N
30 Z=RND(-TIME)
40 PRINT "Первый массив"
50 DIM S(N)
60 FOR I=1 TO N:X=INT(N*RND(1)):S(I)=X:PRINT S(I);:NEXT:PRINT
90 PRINT"Второй массив"
100 DIM K(N)
110 FOR I=1 TO N:X=INT(N*RND(1)):K(I)=X:PRINTK(I);:NEXT:PRINT
130 PRINT"Третий массив"
140 DIM P(N):FOR I=1 TO N:X=INT(N*RND(1)):P(I)=X:PRINTP(I);
160 NEXT:PRINT
170 DIM U(N,3):Y$="а его нет!"
180 FOR I=1 TO N:M=1:U(I,M)=S(I):NEXT
210 FOR I=1 TO N:M=2:U(I,M)=K(I):NEXT
240 FOR I=1 TO N:M=3:U(I,M)=P(I):NEXT
270 FOR I=1 TO 3:FOR J=1 TO N:FOR R=1 TO 3:FOR K=1 TO N
310 IF U(J,I)=U(K,R) THEN NEXT R:Y$=STR$(U(J,I)) ELSE NEXT K,J,I
320 PRINT
330 PRINT"Общий элемент: ";Y$:END