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

7 вариант

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

Найти:

CLS: DIM C(5,5), A(5,5)

DATA 1,2,3,5,6,7,-6,8,9,4

DATA 11,12,13,14,52,26,17,18,19,20

DATA 4,5,6,7,8

OPEN “MASSIV.DAT” FOR OUTPUT AS≠1

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

READ A

PRINT ≠1, A

NEXT J: NEXT I: CLOSE ≠1

OPEN “MASSIV.RES” FOR INPUT AS≠2

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

INPUT ≠2, C(I,J)

IF I >J THEN A(I,J)=0 ELSE A(I,J)=C(I,J)

PRINT “A(I,J)=”; A(I,J);

NEXT J

NEXT I: CLOSE ≠2 END