1. В цельночисленном массиве А (7) подсчитать количество элементов, больших числа 6? 2. В массиве Р (12) вычислить произведение всех четных элементов? (Язык Паскаль)

1) Пройдем все элементы массива:

for i:integer : = 1 to 7 do

Внутри цикла нам нужно будет определить, какие именно числа больше шести:

if (A[i] > 6) then

Когда такие числа будут встречаться, мы будем прибавлять единицу к нашему количеству number_of:

number_of : = number_of + 1;

Когда цикл закончится, мы покажем это количество:

writeln ('Количество чисел, больших шести равно ', number_of);

end.

2) Создадим переменную proiz, дадим ей значение 1. Она нужна для записи в нее значения произведения.

Пройдем все элементы массива:

for i:integer : = 1 to 12 do

Внутри цикла нам нужно будет определить, какие именно числа четные:

if (Р[i] mod 2 = 0) then

Когда такие числа будут встречаться, мы будем умножать proiz на P[i]:

proiz: = proiz * P[i];

Когда цикл закончится, мы покажем это произведение proiz:

writeln ('Произведение четных чисел равно ', proiz);

end.