Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  dsfsdfsd
Language: PASCAL
Code:
const N=30; 
var a: array [1..N] of integer;
     i, x, y: integer;
     s:real;
begin 
     for i:=1 to N do readln(a[i]);
x:=0; y:=0;
for i:=1 to N do
     if (abs(a[i]) mod 10=5) then
     begin 
          x:=x+a[i];
          y:=y+1;
     end;
s:= x/y;
writeln(s);
end.
Comments: