Заполните массив случайными числами в интервале[0,1000] и выведите номера всех элементов...

Question

Заполните массив случайными числами в интервале[0,1000] и выведите номера всех элементов которые равные последнему элементу

Answer 1

Program z1;
        var a:array[1..1500] of integer;
        i,j,n:integer;
begin
        readln(n);
        randomize;
        for i:=1 to n do begin
                a[i]:=random(1001);
        end;
                n:=n-1;
                for i:=1 to n do begin
                        if a[i]=a[n+1] then begin
                        write(i,' ')
                        end
                end;
        readln
end.