1_SEMESTR_1 / Материалы к сессии (лектор Бобкова В.А.) / Учебник по информатике (курс лекций) / 6. Основы программирования на Паскале / 6.8.3. Задача 3

Задача 3.

Даны натуральное число n и последовательность целых чисел а₁, а₂, ... , а_n.

Определить количество тех членов последовательности, которые нечетны и отрицательны. Найти сумму членов последовательности, кратных 5. Написать программу и составить блок-схему алгоритма.

Программа

program zadacha_3;

uses crt;

const

m=500; {максимальное значение n};

var

a: array [1..m] of integer; {массив, состоящий из членов последовательности};

n: word; {число членов последовательности}

kol: word; {количество нечетных и отрицательных членов последовательности}

sum: integer; {сумма членов последовательности, кратных 5}

i: word; {счетчик цикла}

begin

writeln (‘Введите исходные данные:’);

write (‘n=’); readln (n);

for i:=1 to n do

begin

write (‘a[‘,i:3,’]=’); readln (a[i]);

end;

kol:=0; sum:=0;

for i:=1 to n do

begin

if odd(a[i]) and (a[i]<0) then kol:= kol +1;

if a[i] mod 5=0 then sum:= sum +a[i];

end;

writeln (‘результаты расчета:’);

writeln (‘количество нечетных и отрицательных ’);

writeln (‘членов последовательности равно’,kol:4);

writeln (‘сумма членов последовательности, кратных 5, равна’, sum:4);’);

readln;

end.

Пример расчета

Введите исходные данные

n=10

a[ 1]=1

a[ 2]=5

a[ 3]=-3

a[ 4]=-4

a[ 5]=0

a[ 6]=6

a[ 7]=-25

a[ 8]=-100

a[ 9]=9

a[ 10]=-7

Результаты расчета:

Количество нечетных и отрицательных членов последовательности

равно 3

Сумма членов последовательности, кратных 5, равна –120

Блок-схема алгоритма решения задачи