Pascal. Составить программу для вычисления количества положительных элементов матрицы Q (4 х9).

Question

Информатика

Боряха

15 октября, 23:23

Pascal. Составить программу для вычисления количества положительных элементов матрицы Q (4 х9).

+3

Ответы (1)

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

Егорий · Answer 1

Program Podschet;

var a, i, j, ans: integer;

begin writeln ('Введите матрицу 4 х9') ;

ans : = 0;

for i : = 1 to 4 do for j : = 1 to 9 do begin read (a) ; if (a > 0) then inc (ans) ; end;

writeln (ans) ; end.