Question

Надо написать программу: ввести 10 любых чисел и посчитать сколько из этих чисел положительных

Answer 1

Program suma;
const n = 10;
Var a:array [1..n] of integer;
    i, sum:integer;
begin
  sum:=0;
  for i:=1 to n do read(a[i]);
  for i:=1 to n do if a[i] < 0 then Inc(sum);
  write(sum);
end.