Реферат: Лабораторные работы по информатике

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