Question

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

Answer 1

Var  a: array[1..5] of integer; 
       x, i: integer;
begin 
  for i := 1 to 5 do 
   begin   
      a[i] := random(5);
      write(a[i],' ');
   end; 
writeln('Введите x'); 
readln(x); 
for i := 1 to 5 do   
  if a[i] = x then writeln('Иксу равен ', i, '-ый элемент массива');
end.