Developing.ru

Дан одномерный массив А(30). Вычислить:

а)произведение индексов нулевых элиментов;
б)сформировать массив В из индексов нулевых элементов.

помогите пожалуйста!

Первому написавшему решение просьба оставить ссылку на его страницу вконтакте)

ind:=0;
s:=1;
for i:=1 to 30 do
if A=0 then
begin
s:=s*i;
B[ind]:=i;
inc(ind);
end;
Страницы в контакте нет, можно просто нажать "Спасибо".

сасибо чуваг, помог очень! это и (а) и (б)?