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

2014-04-14T17:57:23+04:00
1)2
2)4
3)2
4)-
5)103
6)50
7)Ж Б А Е В Д Г
8)0
9)123
10)
program i5;
var
  i,h:integer;
  a:array [1..15] of integer;
begin
  for i:=1 to 15 do
      readln(a[i]);
  h:=1;
  for i:=1 to 15 do
      if a[i] mod 2=0 then
              h:=h*a[i];
   writeln(h);
end.