8. Нахождение min и max массива

8. Решение задачи на нахождение минимального и максималь­ного элементов массива.

Условие:

Найти максимальный и минимальный элементы одномерного мас­сива, заданного датчиком случайных чисел (размерность массива про­извольна).


 

Решение:

Следующая программа определяет максимальный и минимальный элемент массива.

CLS

INPUT «Введите количество элементов массива»; N

DIM A(N)

FOR I=1 TO N

A (I) = INT (RND (1)* 100)

PRINT «A («I») =»A (I)

NEXT I

MAX = A(1)

FOR I = 2 TO N

IF A (I) > MAX THEN MAX = A (I)

NEXT I

PRINT «Максимальный элемент массива -» MAX

MIN = A(1)

FOR I = 2 TO N

IF A (I) < MIN THEN MIN = A (I)

NEXT I

PRINT «Минимальный элемент массива -» MIN

END