DIM m AS INTEGER, n AS INTEGER CLS INPUT "n,m=", n, m REDIM a(1 TO n, 1 TO m) AS INTEGER imin = 1: jmin = 1: imax = 1: jmax = 1 RANDOMIZE TIMER FOR i = 1 TO n FOR j = 1 TO m t = INT(51 * RND): a(i, j) = t PRINT t; IF a(imin, jmin) > t THEN imin = i: jmin = j END IF IF a(imax, jmax) < t THEN imax = i: jmax = j END IF NEXT j PRINT NEXT i PRINT "Sum="; imin + jmin + imax + jmax
Жетекші платформа (фр. plate – жайпақ, forme — форма) — геологияда қозғалмалығы біршама аз, жазық немесе үстірт тәрізді бедерлі, екі жікқабатты құрылымдық қабаттан – іргетастан және шөгінді тыстан тұратын жер қыртысының кең ауқымды атырабы. Жер бетінде іргетастық көрініс беретін бөліктерді қалқандар дейді. Шөгінді тыспен көмкерілген тұстарын тақта деп атайды. Архей мен протерозойда қалыптасқан ежелгі платформа (Шығыс Еуропа, Сібір) және ігретасы палеозой мен мезозой тау жыныстарьшан құралған жас платформа (Батыс Сібір, Скиф, Тұран) деп ажыратылады; кристалды тақтатастардан, гнейстерден, эффузивті жыныстардан және тағы басқалар. күшті метаморфозданған архейлік жыныстардан құралған жер қабығының көлемді берік алабы.
Привет, друг, зарегистрируйся и поставь мне лайк, чтобы не потерять меня.
CLS
INPUT "n,m=", n, m
REDIM a(1 TO n, 1 TO m) AS INTEGER
imin = 1: jmin = 1: imax = 1: jmax = 1
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO m
t = INT(51 * RND): a(i, j) = t
PRINT t;
IF a(imin, jmin) > t THEN
imin = i: jmin = j
END IF
IF a(imax, jmax) < t THEN
imax = i: jmax = j
END IF
NEXT j
PRINT
NEXT i
PRINT "Sum="; imin + jmin + imax + jmax
Тестовое решение
n,m=8,5
46 23 13 43 35
18 47 44 41 37
45 0 34 30 7
0 28 27 49 47
46 18 48 39 11
2 17 32 43 38
31 43 15 16 16
30 32 46 9 31
Sum= 13
Жетекші платформа (фр. plate – жайпақ, forme — форма) — геологияда қозғалмалығы біршама аз, жазық немесе үстірт тәрізді бедерлі, екі жікқабатты құрылымдық қабаттан – іргетастан және шөгінді тыстан тұратын жер қыртысының кең ауқымды атырабы. Жер бетінде іргетастық көрініс беретін бөліктерді қалқандар дейді. Шөгінді тыспен көмкерілген тұстарын тақта деп атайды. Архей мен протерозойда қалыптасқан ежелгі платформа (Шығыс Еуропа, Сібір) және ігретасы палеозой мен мезозой тау жыныстарьшан құралған жас платформа (Батыс Сібір, Скиф, Тұран) деп ажыратылады; кристалды тақтатастардан, гнейстерден, эффузивті жыныстардан және тағы басқалар. күшті метаморфозданған архейлік жыныстардан құралған жер қабығының көлемді берік алабы.
Привет, друг, зарегистрируйся и поставь мне лайк, чтобы не потерять меня.