Работа с вектором

[Stasya2]

Помогите решить пожалуйста ))
дан вектор А[1 :20]
а) найти минимальный элемент вектора
б) найти произведение нулевых элементов
в) вставить за минимальным элементом произведение нулевых элементов
г) найти номер максимального из 10 последних элементов вектора

[rubius2008]

Сообщение от Stasya2

Помогите решить пожалуйста ))
дан вектор А[1 :20]
а) найти минимальный элемент вектора

imin:=1; for i:=2 to n do if a[i]<a[imin] then imin:=i;

минимальный элемент: a[imin]

Сообщение от Stasya2

б) найти произведение нулевых элементов

произведение будет равно нулю, скорей всего надо было не нулевых, но на всякий случай код, если что переделаете

p:=1; for i:=1 to n do if a[i]=0 then p:=p*a[i];

Сообщение от Stasya2

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

1. Нужно сдвинуть все элементы начиная imin+1 на один вправо (вперед)
2. записать произведение:

a[imin+1]:=p;

Сообщение от Stasya2

г) найти номер максимального из 10 последних элементов вектора

по аналогии с а) только используйте цикл

for i:=11 to 20 do