ЗАДАЧИ «ПОСЛЕДОВАТЕЛЬНОСТИ»

№1 Вводится последовательность ненулевых чисел, 0 – конец последовательности. Определить сумму положительных элементов последовательности.

№2 Вводится последовательность ненулевых чисел, 0 – конец последовательности. Определить, сколько раз последовательность поменяет знак.

№3 В последовательности из N произвольных чисел подсчитать количество нулей.

№4 Вводится последовательность ненулевых чисел, 0 – конец последовательности. Определить среднее значение элементов последовательности.

№5 Вводится последовательность из N произвольных чисел, найти наименьшее положительное число.

№6 Вводится последовательность из N произвольных чисел, найти среднее значение положительных элементов последовательности.

№7 Вводится последовательность ненулевых чисел, 0 – конец последовательности. Подсчитать процент положительных и отрицательных чисел.

№8 Вводится последовательность из N положительных целых чисел. Найти наименьшее число среди четных элементов последовательности.

№9 Вводится последовательность положительных целых чисел, 0 – конец последовательности. Определить, является ли эта последовательность знакочередующейся.

№10 Вводится последовательность из N произвольных чисел. Найти наибольшее число в последовательности. Если таких чисел несколько, определить, сколько их.

Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислить сумму положительных элементов последовательности, порядковые номера которых нечетны.

ЗАДАЧА. Дано натуральное число. Найти количество четных цифр числа.

var i,cnt,a:integer; Verno:integer;

begin

while i<>0 do begin

if ((i mod 10) mod 2)=0 then inc(cnt);

if ((i mod 10)=a) then inc(Verno);

i:=i div 10;

end;

if verno>2 then writeln('Верно'); write(i);readln;

repeat

if ((i mod 10) mod 2)=0 then inc(cnt);

if ((i mod 10)=a) then inc(Verno);

i:=i div 10;

until i=0;

if verno>2 then writeln('Верно'); write(i);readln;

end.