Добавлено (2010-05-08, 10:35 PM)
---------------------------------------------
А6 - 2

Добавлено (2010-05-08, 10:43 PM)
---------------------------------------------
А11-4
А13-3
В7-96

остальные у вас вроде бы сходятся) сверять не буду

Добавлено (2010-05-08, 10:54 PM)
---------------------------------------------
С2
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;
s:=0;
for i:=1 to N do begin
if frac(a[i])=false then (x:=x+1) and (y:=y+a[i]);
end;
s:=y/x;
writeln(s);
end.
Проверьте)

жирным - нету в таблице таких значений

Добавлено (2010-05-08, 11:36 PM)
---------------------------------------------
понятно теперь?))