{* Задача103 *}

REM basic

' Составьте программу, проверяющую, есть ли в одномерных массивах A(T), B(T) одинаковые элементы, и отыскивающую среди них наибольший, если названные элементы в массивах присутствуют.


CLS
INPUT "kol-vo elementov"; t
Dim a(t), b(t), c(t)
PRINT "zapolnit vrychnuy? (y/n)"
Do
    INPUT yn$
Loop Until yn$ = "Y" Or yn$ = "y" Or yn$ = "n" Or yn$ = "N"
If yn$ = "Y" Or yn$ = "y" Then GoTo 1 Else GoTo 2
1 PRINT "zapolnenie massiva A"
For i = 1 To t
    PRINT "vvedite"; i; "element"
    INPUT a(i)
Next
PRINT "zapolnenie massiva B"
For i = 1 To t
    PRINT "vvedite"; i; "element"
    INPUT b(i)
Next
GoTo 3
2 For i = 1 To t
    a(i) = INT(100 * RND(1) - 25)
    b(i) = INT(100 * RND(1) - 25)
Next
3 CLS
PRINT "massiv A:"
For i = 1 To t
    PRINT a(i);
Next
PRINT
PRINT "massiv B:"
For i = 1 To t
    PRINT b(i);
Next
PRINT
For i1 = 1 To t
    For i2 = 1 To t
        If a(i1) = b(i2) Then p = p + 1: c(p) = a(i1)
Next: Next
If p = 0 Then PRINT "takix net": GoTo 4
If p = 1 Then PRINT "max="; c(1): GoTo 4
max = c(1)
For i = 2 To p
    If max < c(i) Then max = c(i)
Next
PRINT "max="; max
4 End

End