информатика1ё / лаб4-2 / вар6
.docЛабораторная работа № 4.2
Дан массив
Найти:
Вариант 6
Количество всех положительных
Составляем программу
DIM С(5,5)
DATA -0.1, -0.05,0.7, 0.8, -1.5
DATA 0.2, 0.4, -1, 0.1, -1.5
DATA 2, 4, 5, 6,-10
DATA 7, 3.4, -10.7, 3, -2
DATA 2.4, -5.6, 7, 8, -2.7
k = 0
FOR I = 1 TO 5
FOR J = 1 TO 5
READ C (I, J)
IF C ( I, J) > 0 THEN K = K + 1
NEXT J
NEXT I
PRINT “ K = “; K
END
Составляем блок-схему:
НАЧАЛО
K = 0
I = 1
J = 1
Ввод
>0 нет
Да
J = J + 1
Да
нет
I = I + 1
Да
нет
ПЕЧАТЬ K
КОНЕЦ