Задачи «последовательности»

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.

Одномерные массивы

Если работа программы связана с хранением и обработкой большого коли­чества однотипных переменных, для их представления в программе можно использовать массивы.

Массив структурированный тип данных, состоящий из фиксированного числа элементов одного типа и каждому элементу в соответствии поставлено значение индекса.

Элементы массива пронумерованы, и обратиться к каждому из них можно по номеру

Номера элементов массива иначе называются индексами, а сами элементы массива — переменными с индексами (индексиро­ванными переменными).

При обращении к элементу массива нужно указать имя массива и индекс того элемента с которым вы хотите выполнить действие. Индекс элемента массива указывается в квадратных скоб­ках после имени массива. Например, массив а заполнен следующим образом:

№эл	1	2	3	4	5	6	7
Эл-т	-18	0	9	1	-7	31	2

Значение элемента массива а[3]=9, а а[7]=2.

а[3]=9

Данные в массивах сохраняются только до конца работы программы. Для их долговременного хранения программа должна записать данные в файл.

Характеристики массива:

• тип — общий тип данных всех элементов массива;

• размерность (ранг) — количество индексов массива;

• диапазон изменения индекса (индексов) — определяет количество эле­ментов в массиве.

Одномерный массив — это пример массива, в котором элементы ну­меруются одним индексом.

СПОСОБЫ ОПИСАНИЯ МАССИВА

• Самый простой способ описания массива — это объявить переменную в разделе описания переменных var с использованием зарезервированного слова array (т. е. массив). В общем виде описание выглядит так: