media_ar.pas

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

program media_aritmetica;
{sa se citeasca nr. si sa se afiseze media aritmetica a nr. pozitive din sir}
const n=10;
var a:array[1..n] of integer;
    s,i,k:integer;
    m:real;
begin
s:=0;
k:=0;
for i:=1 to n do
         begin
              write('a[',i,']= ');
              read(a[i]);
              if a[i]>0 then
                        begin
                             s:=s+a[i];
                             k:=k+1;
                        end;
         end;
m:=s/k;
writeln('media este ',m:4:2);
end.