Дан массив b[1..20], заданный датчиком случайных чисел в интервале от -10 до 50. вывести индексы элементов массива, значения которых больше заданного числа х
Var b:array [1..20] of integer; x,i:integer; begin for i:=1 to 20 do b[i]:=random (61)-10; writeln(b); readln(x); for i:=1 to 20 do if b[i]>x then write(i,' ') end.