Программа

REM одномерный массив ‘ оператор- комментарий DIM M, PI, I, MAX ‘ описание простых переменных

INPUT “ M, PI ”; M, PI ‘ ввод данных

DIM A(1 TO M), B(1 TO M) ‘ описание массивов

DATA –1.1,-3.5,1.8,0,.75,3.25,0, 2.5,5.25 ‘ строка данных

FOR I = 1 TO M ‘ оператор начала цикла READ A(I) ‘ ввод данных

NEXT I ‘з авершение цикла

MAX=A(1) ‘ оператор присваивания

FOR I = 1 TO M ‘ оператор начала цикла

IF MAX < A(I) THEN ‘ оператор условного перехода

MAX = A(I) ‘ оператор присваивания

END IF ‘ завершение оператора условного перехода

NEXT I ‘з авершение цикла

PRINT “MAX”; MAX ‘ вывод

FOR I = 1 TO M ‘ оператор начала цикла

IF (-1) ^ I > 0 THEN ‘ оператор условного перехода

B(I) = PI ‘ оператор присваивания

ELSE B(I) = A(I) / MAX ‘ оператор присваивания

END IF ‘ завершение оператора условного перехода

PRINT “B”; I; “=”;B(I) ‘ вывод

NEXT I ‘з авершение цикла END ‘ конец програм мы

Результат выполнения программы:

M, PI? 9, 3.14 _ Для расчетов был использован одномерный массив

MAX = 5.25 А = –1.1, -3.5,1.8,0,.75,3.25, 0, 2.5, 5,25

B1 = -.2095238 В результате получено следующее:

B2 = 3.14 максимальный элемент MAX = 5,25

B3 =.3428571 новый массив В

B4 = 3.14 В = –0.21, 3.14,0.34, 3.14, 0.14, 3.14, 0, 3.14, 1

B5 =.1428571

B6 = 3.14

B7 = 0

B8 = 3.14

B9 = 1