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

Question

Информатика

Стефа

8 мая, 20:42

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

+1

Ответы (1)

Знаете ответ?

Артя · 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.