clasa XI-A, 23.03-27.03, Tema: Functii si proceduri. Rezolvarea problemelor cu tablouri unidimensionale.

Exemple:
1. Scrieti o functie care determina suma elementelor pare dintr-un tablou unidimensional cu numere întregi A[1..N], N<=100.
Type T=Array[1..100] Of Integer;   
Function Sum(N:Integer; A:T):Integer;
    Var S,I:Integer;
     Begin  S:=0;
          For I:=1 To N Do
          If A[I] Mod 2=0 Then S:=S+A[I];
     Sum:=S
 End;
 2. Scrieti o functie care determina produsul elementelor pozitivedintr-un tablou unidimensional cu numere întregi A[1..N], N<=100.
Type T=Array[1..100] Of Integer;   
Function Pro(N:Integer; A:T):Longint;
    Var I:Integer; P:Longint;
     Begin  P:=1;
          For I:=1 To N Do
          If A[I] >0 Then P:=P*A[I];
     Pro:=P
 End;
3. Scrieti o functie care determina valoarea minima dintr-un tablou unidimensional cu numere întregi A[1..N], N<=100.
Type T=Array[1..100] Of Integer;   
Function Min(N:Integer; A:T):Integer;
    Var M,I:Integer;
     Begin  M:=A[1];
          For I:=2 To N Do
          If A[I] >M Then M=A[I];
     Min:=S
 End;
4. Scrieti o procedura care ordoneaza tabloul crescator A[1..N], N<=100.
Type T=Array[1..100] Of Integer;   
Procedure Sort(N:Integer; Var A:T);
    Var C,I:Integer; V:Boolean;
     Begin  V:=True;
While V Do Begin V:=False;
          For I:=1 To N-1 Do
          If A[I] >A[I+1] Then Begin V:=True;C:=A[I]; A[I]:=A[I+1]; A[I+1]:=C End End
 End;
5. Scrieti o procedura care transfera elementele cu o pozitie la stinga A[1..N], N<=100.
Type T=Array[1..100] Of Integer;   
Procedure Transfer(N:Integer; Var A:T);
    Var C,I:Integer; 
     Begin  C:=A[1];
          For I:=2 To N Do
          A[I-1]:=A[I];
         A[N]:=C
 End;
      Sarcini pentru rezolvare:
1. Scrieti o functie care determina suma numerelor impare dintr-un tablou cu numere intregi A[1..N], N<=100.   
2.Scrieti o functie care determina produsul numerelor pare dintr-un tablou cu numere intregi A[1..N], N<=100.
3.Scrieti o functie care determina valoarea maxima dintr-un tablou cu numere intregi A[1..N], N<=100.
4. Scrieti o procedura care ordoneaza descrescator un tablou unidimensional cu numere reale A[1..N], N<=200.
5. Scrieti o procedura care transfera elementele  tabloului unidimensional cu numere reale A[1..N], N<=200 cu o pozitie la dreapta.
6.* Scrieti o functie care determina numarul de zerouri care pot aparea la sfirsitul produsului numerelor dintr-un tablou unidimensional A[1..N], N<=200 cu numere naturale.
Rezultatele le transmiteti la adresa de e-mail: toloaca.svetlana@gmail.com