👤
a fost răspuns

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

Răspuns :

KIRILLLEZ
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.
Vezi imaginea KIRILLL
Vezi imaginea KIRILLL
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari