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

Лабораторная работа № 4.2

Дан массив

Найти:

Вариант 6

Составляем программу

DIM С(5,5), A(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

FOR I = 1 TO 5

FOR J = 1 TO 5

READ C (I, J)

IF I<=J THEN A(I,J)=C(I,J) else A(I,J)=0

PRINT A(I,J);

NEXT J

PRINT

NEXT I

END

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

НАЧАЛО

K = 0

I = 1

J = 1

Ввод

I<=J нет A(I,J)=0

Да

A(I,J)=C(I,J)

Печать А(I,J)

J = J + 1

Да

нет

I = I + 1

Да

нет

КОНЕЦ