Определить, является ли нечетным целое число N.

Аналогично определяется количество нечетных, отрицательных, нулевых и т.д. элементов

End.

Else

End ;

Begin

Writeln;

Begin

Var

Program lab5;

Определить количество отрицательных элементов, имеющих четные индексы, в массиве X и распечатать их.

End.

Else

End;

Begin

Сложение двух векторов A(5) и B(5).

Найти произведение и среднегеометрическое значение элементов массива A(10).

Найти сумму и среднеарифметическое значение элементов массива A(10).

Примеры обработки массивов

II. По времени изменения экономической переменной

Опережающие	Запаздывающие	Совпадающие
1. Средняя продолжительность рабочей недели в промышленности 2. Среднее число сверхурочных часов 3. Число вновь создаваемых предприятий 4. Число новых строительных контрактов 5. Изменения в запасах 6. Индексы фондового рынка 7. Прибыли корпораций 8. Изменение денежной массы	1. Средняя продолжительность поиска работы 2. Отношение потребительского кредита к личным доходам 3. Удельные расходы на зарплату 4. Средний уровень процентной ставки коммерческих банков 5. Изменение индекса цен на услуги	1. ВВП 2. Уровень безработицы 3. Продукция промышленности 4. Доходы домашних хозяйств 5. Цены производителей 6. Процентные ставки Центрального банка 7. Объем продаж

n:=10;

S:= 0;

for i:=1 to n do

S:= S + a[i];

Sr:=S/n;

writeln(‘S=’, S, ‘ Sr=’, Sr);

n:=10;

P:= 1;

for i:=1 to n do

P:= P * a[i];

SrG:=exp(ln(P)/n);

writeln(‘P=’, P:5:2, ‘ SrG=’, SrG:5:2);

for i:=1 to 5 do

d[i]:= a[i] + b[i];

writeln(‘ массив D = A + B‘);

for i:=1 to 5 do

writeln(d[i]);

5). Задана последовательность целых чисел
А={1, 2, -7, -4, 5, 3}. Сформировать из неё массив Y, состоящий из элементов массива А кратных 3, имеющих нечетные индексы.

k:= 0; { счетчик элементов массива Y}

for i:=1 to 6 do

if (a[i] mod 3 = 0) and (i mod 2=1) then

k:= k + 1;

y[k]:= a[i]

If k = 0 Then

writeln(‘нет таких элементов’)

for i:= 1 to k do

writeln( y[i]:5 );

Type mass=array[1..7] of integer;

const X:mass=(12, 31, 7, 64, 18, 22, 16);

y:mass;

i,k:integer;

writeln('Massiv X:');

for i:=1 to 7 do

write(' ',x[i]);

k:=0;

for i:=1 to 7 do

if (x[i] < 0) and (i mod 2=0) then

k:=k+1;

y[k]:=x[i]

if k=0 then writeln('нет таких элементов')

for i:=1 to k do

writeln('y[',i,']=',y[i]:5);

1 способ:

If ODD(N) then writeln(‘нечетное’)

else writeln(‘четное’);

2 способ:

If N mod 2<>0 then writeln(‘нечетное’)

else writeln(‘четное’);

8). Задана последовательность X = (x_1,x_{2, ,}x₁₀).

Сформировать из неё одномерный массив Y, каждый элемент которого определяется по правилу