Задание

Установите соответствие между записанными на языке Паскаль фрагментами программ обработки одномерного числового массива и результатами их работы.

y:=0;

for i:=1 to 10 do

if a[i] = 0 then y:=y+1;

s:=0;

for i:=1 to 15 do

if i mod 3 = 0 then s:=s+a[i];

k:=0;

for i:=1 to 100 do

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

z:=1;

for i:=1 to 10 do

if a[i] < >0 then z:=z*a[i];

Количество нулевых элементов массива

Сумма всех элементов массива с номерами кратными 3

Количество всех элементов массива, значения которых кратны 5

Произведение ненулевых элементов массива