Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.