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

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


Пусть даны натуральные числа 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.

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






Назад

Закрыть