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



Задание 81. Установите соответствие между записанными на языке Паскаль фрагментами программ обработки одномерного числового массива и результатами их работы.
Код Паскаль Результат работы
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 2 then s:=s+a[i];
Сумма всех элементов массива с четными номерами.
n:=1;
for i:=2 to 10 do
if a[i]
Номер(индекс) минимального элемента массива.
k:=0;
for i:=1 to 100 do
if a[i] mod 5=0 then k:=k+1;
Количество всех элементов массива, значение которых кратно 5.
m:=a[1];
for i:=2 to 10 do
if a[i]>m then m:=a[i];
Значение наибольшего элемента массива.
z:=1;
for i:=1 to 10 do
if a[i]<>0 then z:=z*a[i];
Произведение ненулевых элементов массива.