Примеры задач

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

Пусть даны натуральные числа n, a1 ,…, an . Определите количество членов a последовательности a1 ,…, an , являющихся нечетными числами.

Методика решения

Пример:
Пусть дана последовательность:
1 3 5 6 8 5 8
Здесь количество нечетных чисел равно 4.

Используемые переменные:
A - массив,
N - кол-во элементов массива,
I – параметр цикла,
J - кол-во нечётных элементов.

Считываем с экрана количество элементов массива. Затем, в цикле от 1 до n , с помощью генератора случайных чисел randomize , генерируем случайным образом элементы массива и выводим их на экран.

Переменную, где будет количество нечётных членов последовательности( j ), обнуляем.

Далее в цикле от 1 до n перебираем все элементы массива и проверяем их на четность. Для этого необходимо воспользоваться операцией mod , определяющей остаток от деления одного числа на другое. Если a[i] mod 2 <>0 (остаток от деления i -го элемента массива на 2 не равен 0), то данный член последовательности не чётный. В это случае количество нечётных членов последовательности ( j ) увеличиваем на 1.

Таким образом определяем искомое количество. Выводим результат ( j ) на экран.

Листинг программы

Program ex1;

Uses crt;

type mas=Array[1..100]of integer;

var a:mas;

i,j,n:integer;

clrscr;

randomize;

writeln('введите количество элементов');

readln(n);

{Формируем массив}

for i:=1 to n do

begin

a[i]:=random(10)+1;

write(a[i],'|');

end;

{Считаем количество нечетных чисел}

for i:=1 to n do

if a[i]mod 2<>0 then inc(j);

writeln;

write('Количество нечетных элементов = ',j);

readkey;

END.

Запустить программу

Назад

X