Question

Elaboreaza un program care determina cea mai mare componenta

Answer 1

program p10;

type vector=array[1..100] of integer;

var A:vector;i,n:integer;mpare,mimpare:real;

function Mediapare(A:vector;n:integer):Real;

var i,s,np:integer;mp:real;

begin

s:=0;np:=0;

For i:=1 to n do begin

If i mod 2 =0 then   begin np:=np+1;

                     s:=s+A[i];

                     mp:=s/np;end;end;

Mediapare:=mp;

end;

function Mediaimpare(A:vector;n:integer):Real;

var i,s,ni:integer;mimp:real;

begin

s:=0;ni:=0;

For i:=1 to n do begin

If i mod 2 =1 then   begin ni:=ni+1;

                     s:=s+A[i];

                     mimp:=s/ni;end;end;

Mediaimpare:=mimp;

end;

begin

Write('n=');readln(n);

writeln('introdu elementele vectorului');

for i:=1 to n do readln(A[i]);

Writeln('Vectorul introdus este: ');

for i:=1 to n do Write(A[i]:3);

writeln;

mpare:=mediapare(a,n);

mimpare:=mediaimpare(a,n);

writeln('Media aritmetica anumerelor de pe locurile pare este:',mpare);

writeln('Media aritmetica a numerlor de pe locuirile impare este:',mimpare);

readln;

end.