информатика1ё / wesna / wesna / labor2 / 13вар

13 вариант

Дан массив С_i,j , I =1,2,…,5; J =1,2,…,5

Найти: Все С_i,j больше по модулю 2

CLS: DIM C(5,5)

OPEN “MASSIV.DAT” FOR INPUT AS≠1

SUM=0

FOR I=1 TO 5: FOR J=1 TO 5

INPUT ≠1, C(I,J)

NEXT J: NEXT I: CLOSE ≠1

OPEN “MASSIV.RES” FOR OUTPUT AS≠1

PRINT ≠1: PRINT ≠1, “ИСХОДНЫЙ МАССИВ:”

FOR I=1 TO 5: FOR J=1 TO 5

PRINT ≠1, USING “≠ ≠ ≠ , ≠”; C(I,J);

NEXT J: PRINT ≠1: NEXT I: PRINT ≠ 1, “NOV. MASSIV”

FOR I=1 TO 5: FOR J=1 TO 5

IF ABS(C(I,J))>2 THEN PRINT ≠1, C(I,J);

NEXT J: PRINT ≠ 1:

NEXT I: CLOSE ≠1: END