в целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.
Код:
var
a:array of integer;
mas:array [1..10] of integer;
i,z,n:integer;
begin
z:=1;
setlength(a,n);
for i:=low(a) to high(a)
do begin
a[i]:=random(n);
memo1.Lines.add(inttostr(a[i]));
if a[i]=0 then begin mas[z]:=i;
z:=z+1;
end;
end;
memo2.lines.add(inttostr(mas[z]));
end;
выводит не то что нужно..(( и еще try except.. как его применить?