Question

Se considera tabloul A[1..n] de numere intregi,n<=100.
Sa se scrie un program care numara cite elemente pozitive, cite negative si cite nule contine acest tablou.
Pascal

Answer 1

program Numere;

var
  A: array [1..100] of integer;
  i, n, poz, neg, nul: integer;

begin
  poz := 0;
  neg := 0;
  nul := 0;
  write('n : ');
  readln(n);
  for i := 1 to n do
   begin
    readln(A[i]);
    if A[i] > 0 then
      poz := poz + 1
    else if A[i] < 0 then
      neg := neg + 1
    else nul := nul + 1;
  end;
  writeln('Pozitive : ' + poz + ' Negative : ' + neg + ' Nule : ' + nul);
end.

cc052edf6978281bfea431c315f2fa91.pas

ee2f87d9b95f1aa5e07ffd629b4466fd.txt