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

10 вариант

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

Найти:

CLS: DIM C(5,5)

DATA 1,-3,40,-5,4

DATA -4,-5,6,4,3

DATA -5,-6,-3,6,5

DATA 4,6,11,-4,5

DATA -4,2,6,-6,7

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

READ C(I,J)

NEXT J: NEXT I

OPEN “MASSIV.DAT” FOR OUTPUT AS≠1

PRINT #1,

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

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

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

NEXT J

PRINT #1,

NEXT I

OPEN “MASSIV.DAT” FOR INPUT AS≠1

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

Z=0

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

Z=Z+C(I,J)^2

NEXT J: NEXT I

PRINT ≠1,: PRINT #1, “novi massiv : ”

PRINT ≠1, USING “≠ ≠ ≠ , ≠”; “z=”; z

CLOSE ≠1: END