Код IT
← Каталог

Pascal / Free Pascal — типовые программы — 1.1. Подсчёт положительных элементов

Фрагмент из «Pascal / Free Pascal — типовые программы»: 1.1. Подсчёт положительных элементов.

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program CountPositive;

var
  n, i, x, cnt: integer;

begin
  ReadLn(n);
  cnt := 0;
  for i := 1 to n do
  begin
    Read(x);
    if x > 0 then
      cnt := cnt + 1;
  end;
  ReadLn;
  WriteLn(cnt);
end.
program CountPositive;

var
  n, i, x, cnt: integer;

begin
  ReadLn(n);
  cnt := 0;
  for i := 1 to n do
  begin
    Read(x);
    if x > 0 then
      cnt := cnt + 1;
  end;
  ReadLn;
  WriteLn(cnt);
end.