То, что воспринимаем - объект тот , кто воспринимает - субъект
sport2293032
30.03.2023
Вот так попробуй var a: array[1..10] of integer; x, i: integer; l: boolean; begin write('введите ряд чисел - '); //заполняем массив for i: =1 to 10 do read(a[i]); //вводим число, которое нужно проверить write('введите число - '); readln(x); //проверяем, есть ли число в массиве //если есть, то l будет присвоено true for i: =1 to 10 do if a[i] = x thenl : = true; //проверяем,чему равна l if l=true then writeln('число ',x,' есть в массиве.') else writeln('числа ',x,' нет в массиве.'); end.