DIM A (30)

FOR I=1 TO 30

PRINT "Введите"; I; "-и элемент массива А";

INPUT A(I)

NEXT I

FOR J = l ТО 30

PRINT J; "-й элемент массива А равен"; A (J)

NEXT J

В программе оператор DIM A(30) резервирует место для одномерного массива из тридцати элементов, которое затем заполняется числовыми значениями в порядке возрастания индексов. Использование первого оператора PRINT в программе позволяет организовать подсказку для пользователя, на устранение ошибок ввода. В подсказке по мере выполнения цикла переменная I в операторе PRINT указывает номер элемента массива, значение которого следует вводить. При выводе указывается значение каждого элемента и его место в массиве.

Пример 2.5 В заданном массивеА₁, А₂,… А₃₀ найти среднее арифметическое отрицательных элементов массива, а затем вывести на печать элементы массива модуль, которых меньше модуля найденного значения, и найденное среднее арифметическое.

DIM A(30)

FOR 1=1 TO 30

INPUT A(I)

NEXT I

S=0: K=0

FOR 1=1 TO 30

IF A(I)<0 THEN S=S+A(I):K=K+1

NEXT I

SR=S/K

FOR 1=1 TO 30

IF ABS(A(I))<ABS(SR) THEN PRINT А(I)

NEXT 1

PRINT "Среднее арифметическое";SR

END

Рисунок 10 Схема алгоритма решения примера 2.5

Пример 2.6 Задано натуральное число n и массив Х₁, Х₂,… Х_n. Превышает ли наибольший элемент массива число 25?

Рисунок 11 Схема алгоритма решения примера 2.6

PRINT ”Введи n”