uses crt;
type
massiv = array [1..100] of integer; // объявляем свой тип данных
var
mass : massiv ;
sum, proiz , i , n: integer;
begin
clrscr;
write('Введите длину массива : '); readln(n);
sum := 0 ;
proiz := 1 ; // единица потому что у нас умножение, если умножать на 0 будет 0 всегда!!
for i:=1 to n do
begin
write('Введите ', i , ' элемент : '); readln(mass[i]);
if (mass[i] mod 2 = 0) then sum := sum + mass[i]
else proiz := proiz * mass[i];
end;
writeln('Сумма четных равна ', sum);
writeln('Произведение нечетных равно ', proiz);
readln; // чтобы программа не закрывалась
end.
Линейная структура. Линейная структура данных (или список) — это упорядоченная структура, в которой адрес данного однозначно определяется его номером (индексом). Примером линейной структуры может быть список учебной группы или дома, стоящие на одной улице.
В списках, как правило, новый элемент начинается с новой строки. Если элементы располагаются в строчку, нужно внести разделительный знак между элементами. Поиск осуществляется по раздели-
телям (чтобы найти, например, десятый элемент, надо отсчитать девять разделителей).
a->b
b->c
c->d
d->e
e->f
Строим битовые цепочки для этой системы
a 1 0 0 0 0 0 0
b 1 1 0 0 0 0 0
c 1 1 1 0 0 0 0
d 1 1 1 1 0 0 0
e 1 1 1 1 1 0 0
f 1 1 1 1 1 1 0
Каждая переменная a-f является конъюнкцией, она истинна в дном случае, ложна в трех, значит количество решений будет равно
1 + 3 + 9 + 27 + 81 + 243 + 729 = 1093