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

Question

Информатика

Инеска

20 марта, 21:04

Заполните массив случайными числами в интервале[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.