Question

Se da un vector cu n (1<=n<=100) componente numere intregi. Sa se determine componenta maximala negativa. Prin functii si proceduri

Answer 1

program comp_neg;

var n: integer;

   a:array[1..100]of integer;

procedure citeste(var n:integer);

var i: integer;

begin

 write('introdu dimensiunea vectorului, n='); readln(n);

 writeln('introdu ', n, ' elemente a vectorului:');

 for i:=1 to n do

   begin

     write('a[',i,']='); readln(a[i]);

   end;

end;

function nr_neg: integer;

var i, neg: integer;

begin

  neg:=0;

  for i:=1 to n do

    begin

      if a[i]<0 then inc(neg);

    end;

  nr_neg:=neg;

end;

begin

  citeste(n);

  writeln('componenta negativa=',nr_neg);

end.