Даны переменные Z V X. Определить сколько и какие из переменных являются четными числами

в vba exс написать код!!

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) ) 

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

попробуйте так (turbo pascal):

program 1;

var s: string;

c: integer;

begin

write('vvedite nazvaniye zhivotnogo');

read(s);

writeln('vvedite kolichestvo syedennyh gribov');

readln(c);

writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');

end.

Ясчитаю, что словами написано верное условие, в фрагменте ошибка: вместо x > 0 должно быть x > = 0 var x: integer; begin   readln(x);   if x > = 0 then     x : = x - 50   else     x : = x + 100;   writeln(x) end. пример ввода: 0 пример вывода: -50