Учебно-методические комплексы

РЕШЕНИЕ:

N=30
max=0
d=0
k=0
DIM A(30) AS INTEGER

FOR i=1 TO 30
INPUT A(i)
NEXT i

FOR i=1 TO N-1
_____d=A(i)+A(i+1)
_____IF d>max
________THEN
________max=d
________ k=i
_____ END IF
NEXT i

PRINT k

Для наглядности добавлены пробелы во всех строках программы, но их не должно быть

РЕШЕНИЕ:

Например последовательность 12341234562450178451214
Две возрастающие последовательности, но длина наибольшей 6 символов. Ответ 6.

N=30
max=0
d=1
DIM A(30) AS INTEGER

FOR i=1 TO 30
INPUT A(i)
NEXT i

FOR i=1 TO N
_____IF A(i)<0
________THEN
__________d=d+1
_________ELSE
__________ IF d > max
_____________ THEN
______________ max=d
______________ d=0
__________ END IF
_____ END IF
NEXT i

PRINT max

Для наглядности добавлены пробелы во всех строках программы, но их не должно быть

РЕШЕНИЕ:

Например последовательность 12341234562450178451214
Две возрастающие последовательности, но длина наибольшей 6 символов. Ответ 6.

N=30
max=0
d=1
DIM A(30) AS INTEGER

FOR i=1 TO 30
INPUT A(i)
NEXT i

FOR i=1 TO N-1
_____IF A(i)=A(i+1)
________THEN
__________d=d+1
_________ELSE
__________ IF d > max
_____________ THEN
______________ max=d
______________ d=0
__________ END IF
_____ END IF
NEXT i

PRINT max

Для наглядности добавлены пробелы во всех строках программы, но их не должно быть

РЕШЕНИЕ:

N=30
SUM=0
k=0
DIM A(30) AS INTEGER

FOR i=1 TO 30
INPUT A(i)
NEXT i

FOR i=1 TO N
IF A(i)<0
THEN
SUM=SUM+A(i)
k=k+1
END IF
NEXT i

k=SUM/k

PRINT K