Ответы и объяснения

2014-04-14T11:47:56+00:00
Var a:array[1..3,1..3] of integer;
i,j,s:integer;
begin
for i:=1 to 3 do
  for j:=1 to 3 do begin
  read(a[i,j]);
  if not odd(a[i,j]) then s+=a[i,j];
  end;
writeln(s);
end.