var a,i,n,k : integer;
begin k := 0;
write ('n = ');
readln (n);
for i := 1 to n do
begin read (a);
if a =0 then
k := k +1; end;
writeln (k,' - кол-во нулей');
<span> end.</span>
Ответ:
Смотри картинку
Объяснение:
n - количество элементов ряда, вводимое пользователем
a - число из ряда, вводимое пользователем
s - сумма чисел, которые являются одновременно четными и делятся на три
На целостность данных она не влияет, первый вариант.
Program z;
var x, y, a, b, c: integer;
begin
x:=0;
y:=0;
readln(a);
readln(b);
readln(c);
if a > 0 then x:=x+a
else y:=y+a;
if b > 0 then x:=x+b
else y:=y+b;
if c > 0 then x:=x+c
else y:=y+c;
writeln(x);
writeln(y);
if x > y then writeln(a - b)
else writeln(a*b*c);
end.