информатика1ё / лаб4-2 / вар6

Лабораторная работа № 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

PRINT

NEXT I

PRINT “ K = “; K

END

Составляем блок-схему:

НАЧАЛО

K = 0

I = 1

J = 1

Ввод

>0 нет

Да

J = J + 1

Да

нет

I = I + 1

Да

нет

ПЕЧАТЬ K

КОНЕЦ