i := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ ] OF i ; BEGIN ; : NumberX ; :=:= WRITELN( Массив случайных чисел : NamberX := 0, X INTEGER RANDOMIZE ; ) Rand [ i ] Random ( 50 ) Rand [ i ] : 4 ; ; READLN() ; END. ; 0 WRITELN ; WRITE() ; Введите X : X NumberX ; FORTO :=:= i 120DO :=:= IFTHEN ELSE Rand [ i ] = X NumberX :=:= NumberX + 1 IF NumberX = 0 THEN WRITELN ( В массиве нет числа, X ) ( Число, X в массиве присутствует, NumberX, раз ) да нет Rand [ i ] = X NamberX := NamberX + 1 да нет NamberX = 0 вывод Число X в массиве присутствует NumberX раз