Вот так попробуй
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,' нет в массиве.');
<span>end.</span>
В количестве проходов цикла. В одном от 1до7 отесать 1,2,3,4,5,6,7. В другом от 1до6. Тоесть 1,2,3,4,5,6
Var x,y,a:real;
begin
readln(X,Y);
a:=power((x+1)/(x-1),x)+sqr(18*x*y);
writeln(a);
<span>end.</span>
Сразу говорю будет считать неправильно, если делаешь проверку после else
нужно писать else if ...
Var
i, min, a, n: integer;
begin
min := trunc(power(2, 31) - 1);
readln(n);
for i := 1 to n do
begin
readln(a);
if (a < min) then
min := a;
end;
writeln(min);
end.