Определить количество отрицательных элементов матрицы

Question

Информатика

Дука

28 апреля, 15:08

Определить количество отрицательных элементов матрицы

+5

Ответы (1)

Знаете ответ?

Адельфина · Answer 1

Const n=5;

Var a:array [1 ... n, 1 ... n] of integer; i, j, k:integer;

Begin

for i:=1 to n do

for j:=1 to n do begin

readln (a[i, j]) ;

if a[i, j]<0 then inc (k) ; end;

writeln (k) ;

end.