PASCAL
program brainly;
var n,i,s,nr,k:integer;
ma:real;
begin
s:=0;
ma:=0;
Writeln('Cate numere va contine sirul?:');
readln(n);
Writeln('Dati numerele:');
for i:=0 to n-1 do begin
readln(nr);
if (nr mod 2 = 0) then begin s:=s+nr;
k:=k+1;
end;
end;
ma:=s/k;
Writeln('MA=',ma:2:2);
end.
C++
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int n=0,nr,k=0,s=0;
float ma=0;
cout<<"Cate numere va contine sirul?:";
cin>>n;
cout<<"\nDati numerele:\n";
for(int i=0;i<n;i++){
cin>>nr;
if(nr%2==0){
s+=nr;
k++;
}
}
ma=s/k;
cout<<"MA="<<fixed<<setprecision(2)<<ma;
return 0;
}
