ІДЗ № 1

Дан одновимірний масив Знайти середнє арифметичне елементів масиву,що мають парні номери та задовольняють умові, а також сумупозитивних елементів масиву. Всі негативні елементи вихідногомасиву розділити на знайдене значення суми.

INPUT "Введення масиву"; N
FOR I = 1 TO N

PRINT "A ("; I; ")=";

INPUT A (I)
NEXT I
S = 0: K = 0
FOR I = 2 TO N STEP 2

IF A (I)> -10 AND A (I) <5 THEN

S = S + A (I)

K = K + 1

END IF
NEXT I
P = 0
FOR I = 1 TO N

IF A (I)> 0 THEN

P = P + A (I)

END IF
NEXT I
FOR I = 1 TO N

IF A (I) <0 THEN

A (I) = A (I)/P

END IF
NEXT I
IF K = 0 THEN

PRINT "Поділ на 0"
ELSE

SR = S/K
END IF
PRINT "Виведення нового масиву"
FOR I = 1 TO N

PRINT "A ("; I; ")="; A (I)
NEXT I
PRINT "Сума позитивних елементів ="; P
PRINT "Може бути арифметичне значення ="; SR

| N | X1 | X2 | X3 | X4 | X5 |
| 5 | 1 | -2 | 3 | 4 | -5 |

P = 8 задовольняє умові

-----------------------< br>