Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера...

Question

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

Answer 1

Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.

---