Найти и вывести сумму индексов элементов с максимальным и минимальным значением элементов массива R(K). Принять, что в массиве по одному MAX и MIN элемента.(значения переменных считать произвольными)- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
INPUT k
DIM r(k)
FOR i = 1 TO k
    INPUT "vvedite element ", r(i)
NEXT
max = r(1)
min = r(1)
nmax = 1
nmin = 1
FOR i = 1 TO k
    IF r(i) > max THEN max = r(i): nmax = i
    IF r(i) < min THEN min = r(i): nmin = i
NEXT
PRINT nmax + nmin

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

Похожие записи/страницы:

Leave a Comment