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

Program massiv;

var

A:array[1 ... 10]of integer;

i, x:integer;

begin

readln (x); {ввод числа х с клавиатуры}

for i:=1 to 10 do

begin

A[i]:=random (4);

write (A[i],' '); {вывод на экран массива А в строчку}

end;

writeln;

for i:=1 to 10 do

begin

if A[i]=x then

writeln (i); {вывод на экран индексов i в столбик}

end;

end.