Напишите программу на паскаль Заполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения равные x

Предыдущий
вопрос Следующий
вопрос

program FindX;

var
arr: array[1..10] of Integer;
X, i: Integer;

begin
Randomize;

// Заполнение массива случайными числами в интервале [0,5]
for i := 1 to 10 do
begin
arr[i] := Random(6);
Write(arr[i], ' ');
end;

// Ввод числа X
WriteLn;
Write('Введите число X: ');
ReadLn(X);

// Поиск значений равных X
Write('Значения равные ', X, ' :');
for i := 1 to 10 do
begin
if arr[i] = X then
Write(i, ' ');
end;
end.