Даны три массива по 20 элементов. В каким из массивов максимальны элемент встретится раньше- QBasic(Бейсик)

DIM a(20), b(20), c(20)
RANDOMIZE TIMER

FOR i = 1 TO 20
    a(i) = INT(RND * 50)
    b(i) = INT(RND * 50)
    c(i) = INT(RND * 50)
NEXT
PRINT "massiv a"
FOR i = 1 TO 20
    PRINT a(i);
NEXT
PRINT "massiv b"
FOR i = 1 TO 20
    PRINT b(i);
NEXT
PRINT "massiv c"
FOR i = 1 TO 20
    PRINT c(i);
NEXT
PRINT
maxa = a(1)
maxb = b(1)
maxc = c(1)
FOR i = 1 TO 20
    IF a(i) > maxa THEN maxa = a(i): noma = i
    IF b(i) > maxb THEN maxb = b(i): nomb = i
    IF c(i) > maxc THEN maxc = c(i): nomc = i
NEXT
PRINT "maximalnyj element ranshe vstretitsya"
IF noma < nomb AND noma < nomc THEN PRINT "v massive a"
IF nomb < noma AND nomb < nomc THEN PRINT "v massive b"
IF nomc < noma AND nomc < nomb THEN PRINT "v massive c"

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment