информатика1ё / Лаб4-1 / Вар13
.docЛабораторная работа № 4.1
Даны два массива
-0,1 |
0,05 |
0,7 |
0,8 |
-1,5 |
0,2 |
0,4 |
-1 |
0,1 |
1,5 |
|
0,1 |
0,3 |
-0,9 |
0,2 |
-0,4 |
0,01 |
1 |
-0,25 |
-0,1 |
-0,3 |
Найти:
Вариант 13
Сумму квадратов всех положительных
Составляем программу
DIM X(10)
DATA -0.1, 0.05, 0.7, 0.8, -1.5, 0.2, 0.4, -1, 0.1, -1.5
S = 0
FOR i = 1 TO 10
READ X(i)
IF X( i ) >0 THEN S = S + X(i) ^2
NEXT i
PRINT “ S = “; S
END
Составляем блок-схему:
НАЧАЛО
I = 1
S = 0
Ввод
Да
I = I + 1
Да
нет
ПЕЧАТЬ S
КОНЕЦ