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

Question

Информатика

Устина

1 марта, 19:51

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

+2

Ответы (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.