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

Question

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

Answer 1

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.

Answer 2

Исправил некоторые ошибки предыдущего ответа, внес дополнения

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.