pana_la0.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program pana_la_0;
{Se citesc pe rand nr. intregi pana la intalnirea nr. 0, care nu face parte
din sir. Sa se det. ate nr. poz. si cate nr. neg. sunt in sir.}
type sir=array[1..20] of integer;
var x:sir;
    poz,neg,i,n:integer;
procedure citire(var n:integer; var a:sir);
          var nr:integer;
          begin
          write('nr este ');
          readln(nr);
          n:=0;
          while nr <> 0 do
                begin
                     inc(n);
                     a[n]:=nr;
                     write('nr este ');
                     readln(nr);
                end;
          end;
procedure calcul(var a:sir; var poz,neg:integer);
          var i:byte;
          begin
          poz:=0; neg:=0;
          for i:=1 to n do
                        if a[i]>0 then inc(poz)
                                  else inc(neg);
          end;
begin
     citire(n,x);
     for i:=1 to n do write(x[i]:5);
     writeln;
     calcul(x,poz,neg);
     writeln(poz,' elemente pozitive si ',neg,' elemente negative');
end.