uses crt; var i,n,d:byte;S:Real; a:array[1..100]ofinteger; begin Readln(n);S:=0;d:=0; For i:=1to n do read(a[i]); For i:=1to n do If a[i]mod2=0then begin S:= S+a[i]; d:=d+1; end; S:=S/d; writeln(S); end.
Bài 2:
Uses crt; Var i:byte;S:String; begin readln(S); For i:=length(S)downto1do write(S[i]); end.
