Свормировать массив, вычислить произведение его минимального и максимального элементов - QBasic

Узнай цену своей работы

Формулировка задачи:

написать программу формирования одномерного массива размера М. результат напечатать. вычислить произведение минимального и максимального элементов массива. результат напечатать. поменять местами первый и последний элементы массива. результат напечатать.

Решение задачи: «Свормировать массив, вычислить произведение его минимального и максимального элементов»

textual
Листинг программы
CLS
 
RANDOMIZE TIMER
n = 12
DIM A(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   A(i) = 10 * RND + 3
   PRINT A(i);
NEXT i: PRINT : PRINT
 
min = A(1)
max = A(1)
 
FOR i = 1 TO n
   IF min > A(i) THEN min = A(i)
   IF max < A(i) THEN max = A(i)
NEXT i
PRINT " Min * Max ="; min * max
PRINT
SWAP A(1), A(n)
FOR i = 1 TO n
   PRINT A(i);
NEXT i
 
END

Объяснение кода листинга программы

  1. Создается массив A размером 12, элементы которого заполняются случайными целыми числами от 3 до 103 (включительно).
  2. Вычисляется произведение минимального и максимального элементов массива A.
  3. Минимальный и максимальный элементы массива A равны первому элементу массива A(1).
  4. Происходит перебор всех элементов массива A от 1 до 12.
  5. Если текущий элемент меньше минимального значения, то он становится новым минимальным значением.
  6. Если текущий элемент больше максимального значения, то он становится новым максимальным значением.
  7. Производится обмен первого и последнего элементов массива A.
  8. Происходит перебор всех элементов массива A от 1 до 12.
  9. Выводятся все элементы массива A.

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы