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

Question

Информатика

Лилиана

14 июня, 19:56

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

+4

Ответы (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.