В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
YAMAYKA123
YAMAYKA123
28.02.2023 19:34 •  Информатика

Дан массив из n элементов . Найти номер наименьшего значения элемента вывести его. Написать блок- схему и программу

Показать ответ
Ответ:
Keterina0905keka
Keterina0905keka
30.06.2022 07:08
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

Тестовое решение
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
0,0(0 оценок)
Ответ:
esnira1098376
esnira1098376
06.11.2021 22:33

Жетекші платформа (фр. plate – жайпақ, forme — форма) — геологияда қозғалмалығы біршама аз, жазық немесе үстірт тәрізді бедерлі, екі жікқабатты құрылымдық қабаттан – іргетастан және шөгінді тыстан тұратын жер қыртысының кең ауқымды атырабы. Жер бетінде іргетастық көрініс беретін бөліктерді қалқандар дейді. Шөгінді тыспен көмкерілген тұстарын тақта деп атайды. Архей мен протерозойда қалыптасқан ежелгі платформа (Шығыс Еуропа, Сібір) және ігретасы палеозой мен мезозой тау жыныстарьшан құралған жас платформа (Батыс Сібір, Скиф, Тұран) деп ажыратылады; кристалды тақтатастардан, гнейстерден, эффузивті жыныстардан және тағы басқалар. күшті метаморфозданған архейлік жыныстардан құралған жер қабығының көлемді берік алабы.

Привет, друг, зарегистрируйся и поставь мне лайк, чтобы не потерять меня.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота