Question

Adaugati un program o secvenţă nouă în care se determină numărul componentelor dintr-un tablou unidimensional cu valorile negative, pozitive și egale cu zero. Program pascal

Answer 1

Program Tema;

Type intregi=array[1..100] of integer;
var n,i,numere_pozitive,numere_negative,numere_nule:integer;
    numere:intregi;
Begin
numere_pozitive:=0;
numere_negative:=0;
numere_nule:=0;
writeln('Introduceti nr de cifre:');
readln(n);
writeln('Introduceti numere:');
for i:=1 to n do
begin
  read(numere[i]);
  if numere[i]>0 then
    numere_pozitive:=numere_pozitive+1    
  else if numere[i]<0 then
    numere_negative:=numere_negative+1
  else
    numere_nule:=numere_nule+1;
end;
writeln('Numarul de numere pozitive:',numere_pozitive);
writeln('Numarul de numere negative:',numere_negative);
writeln('Numarul de numere nule:',numere_nule);  
End.