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

Юлиана95631 Юлиана95631    1   06.06.2019 19:20    12

Ответы
руслан746 руслан746  01.10.2020 20:55
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика