ОДЗ №2
Задан одномерный массив X(N). Первый положительный элемент записать на
место максимального с чётным номером.
N X1 X2 X3 X4 X5
5 -1 2 -3 6 8
INPUT “Ввести массив N=”; N
DIM X(N)
FOR I = 1 TO N
INPUT X(I)
NEXT I
NPOL = 0
FOR I = 1 TO N
IF X(I) > 0 THEN
NPOL = I
EXIT FOR
END IF
NEXT I
IF NPOL = 0 THEN
PRINT “Нет положительных элементов”
ELSE
MAXX = X(2)
FOR I = 4 TO N STEP 2
IF X(I) > MAXX THEN
MAXX = X(I)
NMAXX = I
END IF
NEXT I
X(NMAXX) = X(NPOL)
FOR I = 1 TO N
PRINT X(I)
NEXT I
END IF
Новый массив
-1 2 -3 2 8
Нашли опечатку? Выделите и нажмите CTRL+Enter