Заполните массив случайными числами в диапазоне 0..4 и выведите на экран номера всех элементов, значение которых равно Х (Х вводится с клавиатуры)

program rt; var   i:byte;   a:array[0..4] of integer;   x:integer; begin  for i:=0 to 4 do  a[i]:=randon(10)-5;  readln(x);  for i:=0 to 4 do  if x=a[i] writeln(x);end.

исправил некоторые ошибки предыдущего ответа, внес дополненияprogram rt;const n=10;var   i:byte;a:array[0..n] of integer;x:integer;begin write('Массив - '); for i:=0 to n do  Begin  a[i]:= random(10);  write(a[i]:3);  end;  writeln;  write('Число Х - ');  readln(x);  for i:=0 to n do  if a[i]=x then writeln('Элемент №',i+1);end.