Задача №4. Найти и вывести сумму элементов массива А, состоящего из 5 элементов

Найти и вывести сумму элементов массива А, состоящего из 5 элементов.

РЕШЕНИЕ

АЛГОРИТМ ПРОГРАММА НА QBASIC

REM программа решения задачи 4

I = 1

DIM A(5)

FOR I = 1 TO 5

INPUT «введите A(I)»; A(I)

NEXT I

S = 0

FOR I = 1 TO 5

I = I + 1

S = S + A(I)

NEXT I

PRINT S

ДА END

S = 0

НЕТ

		I = 1

I = I + 1

ДА

НЕТ

Задача №5

Найти и вывести произведение отрицательных элементов линейного массива.

РЕШЕНИЕ

АЛГОРИТМ ПРОГРАММА НА QBASIC

REM программа решения задачи 5

INPUT n

DIM V(n)

FOR i = 1 TO n

INPUT «введите V(i)»; V(i)

i = 1

NEXT i

p = 1: k = 0

FOR i = 1 TO n

IF V(i) < 0 THEN

p = p* V(i): k = k + 1

END IF

i = i + 1

NEXT i

PRINT p; k

ДА END

НЕТ

НЕТ ДА

ДА

НЕТ

Определение максимального элемента массива.