Turbo pascal. Дана квадратичная матрица размером n*n. Найти количество нулей ниже побочной диагонали. Решение через массивы

Question

Информатика

Таисия

1 июня, 08:17

Turbo pascal. Дана квадратичная матрица размером n*n. Найти количество нулей ниже побочной диагонали. Решение через массивы

+5

Ответы (1)

Знаете ответ на вопрос?

Люня · Answer 1

Const N = 7;

Var

A:array[1 ... N, 1 ... N] of integer;

i, j, k:integer;

Begin

Randomize;

For i: = 1 to N do

Begin

For j: = 1 to N do

Begin

A[i, j]:=random (21) - 10;

Write (A[i, j]:4)

End;

WriteLn

End;

k:=0;

WriteLn;

For i: = 1 to N do

For j: = N-i+2 to N do

if A[i, j]=0 then k:=k+1;

WriteLn ('k = ', k) ;

ReadLn

End.