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

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



Задание 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];
Произведение ненулевых элементов массива.