Question

Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных Х. Пример: исходный массив: 4 0 1 2 0 1 3 4 1 0 что ищем? 0 А[2], А[5], А[10]

  народ срочно нужно, помогите плиз  

Answer 1

var a:array[0..10] of integer;

i,x:integer;

Begin

  read(x);

  randomize;

  for i := 1 to 10 do begin

    a[i]:=random(4);

    if a[i]=x then writeln('a[',i,']');

  end;

End.