Question

Se considera tabloul A[1..n] de numere pozitive si negative,n<=100.Sa se scrie un program care numara cite elemente il preceda pe primul element negativ.(IN PASCAL)

Answer 1

Program Tema;

var a:array[1..100] of integer;
    n,i,nr,negativ:integer;

Begin
negativ:=0;
nr:=0;
writeln('Introduceti nr de elemente: ');
readln(n);
writeln('Introduceti elementele: ');
for i:=1 to n do
begin
read(a[i]);
if negativ=0 then
if a[i]>=0 then
   nr:=nr+1
else
   negativ:=1;
end;

writeln('Numarul de numere pozitive precedente primului nr negativ  este: ',nr);
End.