DUzun's Web
Programare, proiecte personale, divertisment

uses crt;

const nmax = 100; {Nr maxim de elemente}

type tablou = array[1..nmax] of integer;

var a: tablou;

    i, n: word;

function suma: longint;

var s: longint;

begin

    s := 0;

    for i := 1 to n do inc(s, a[i]); {la s se aduna a[i]}

    suma := s;

end;

​

function max: integer;

var m: integer;

begin

  max := 1;

  m := a[1];

  for i := 2 to n do if a[i] > m then begin

    m := a[i];

    max := i;  {max reprezinta nr de pozitie al elementului maxim}

  end; 

end;    

​

function nr_pare: integer;

var p: integer;

begin

   p := 0;

   for i := 1 to n do 

     if a[i] mod 2 = 0 then inc(p); {Daca restul impartirii la 2 este 0, atunci nr este par}

   nr_pare := p;  

end;

​

function media: real;

begin

  media := suma / n;

end;

​

begin

  clrscr;    {Curatirea ecranului}

  randomize; {Pentru obtinerea numerelor aleatoare}

  writeln('Scrie nr de elemente (intre 1 si ', nmax, '): ');

  readln(n);

  writeln('Doresti sa generez ', n, ' numere? (Apasa "D" sau "N")');

  if UpCase(ReadKey) = 'D' then  {UpCase transforma caracterul citit de ReadKey in majuscula}

    for i := 1 to n do 

      a[i] := random(MAXINT)     {Un numar aleator intre 0 si MAXINT}

  else

    for i := 1 to n do begin

      write('a[', i, '] = '); 

      readln(a[i]);

    end;

​

    clrscr;

    writeln('Tabloul a:');

    for i := 1 to n do write(a[i]:6);

    writeln;

    writeln;

    writeln('Suma: ');

    writeln(suma:10);

    writeln;

    writeln('Elentul maxim: ');

    writeln('   a[', max, '] = ', a[max]);

    writeln;

    writeln('Nr elemente pare: ');

    writeln(nr_pare:10);

    writeln;

    writeln('Media: ');

    writeln(media:13:2);

    readkey;  

end.

​

​