poz&neg.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 38 行

program pozitive_si_negative;
{sa se afiseze media aritmetica a nr. pozitive si a celor negative
dintr-un vector care se termina cu 0}
const z=10;
var a:array[1..z] of integer;
    k,p,n,sp,sn,i:integer;
    mn,mp:real;
begin
p:=0;
n:=0;
sp:=0;
sn:=0;
i:=1;
for i:=1 to z do
      begin
           write('a[',i,']= ');
           readln(a[i]);    end;
for i:=1 to z do if a[i]=0 then k:=i;
for i:=1 to k-1 do
           if a[i]>=0 then
                            begin
                               sp:=sp+a[i];
                               p:=p+1;
                            end
                      else
                            begin
                               sn:=sn+a[i];
                               n:=n+1;
                            end;



mp:=sp/p;
mn:=sn/n;
writeln('media aritmetica a nr. pozitive este ',mp:4:2);
writeln('media aritmetica a nr. negative este ',mn:4:2);
end.