Вводится последовательность чисел 3, 0, 2, 0, 4. В результате выполнения программы Var a: array[1 . . 5] of integer; i, s: integer; begin s:=0; for i:=1 to 5 do begin read(a[i]); if a[i] mod 2=0 then s:= s+ a[i]; end;