Question

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

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.