1. составить программу для вычисления выражения, значение а вводится с клавиатуры: y=(a-2b)²+7

program Prog;

var i, x, Proiz, MinEl: Integer;

arr: array[1..8] of Integer;

begin

Proiz:=1;

MinEl:=13;

randomize;

write('Введите X: ');

read(x);

// запоолнение, вычисление мин. эл., и умножения

for i:=1 to 8 do begin

arr[i]:=random(12)+2;

Proiz:=Proiz*arr[i];

if arr[i]<MinEl then

MinEl:=arr[i]

end;

// вывод всего массива

for i:=1 to 8 do

write(arr[i], ' ');

writeln;

// вывод нужных элементов

writeln('Минимальный элемент: ', MinEl);

writeln('Произведение элементов: ', Proiz);

writeln('Элементы, равные X: ');

for i:=1 to 8 do

if arr[i]=x then

write(arr[i], ' ')

end.

Простая программа, для начала мы считаем первое значение сразу в min(это сделано чтобы не давать минимуму значение какой-то константы), затем запускаем цикл, в котором будем вводить число и тут же проверять его на наше условие (поиск минимума). Ну и в конце выводим результат, если что-то непонятно - в комментарии.

var

x, min, i : integer;

begin

writeln('Введите 15 значений: (каждое на новой строке): ');

readln(min);

for i := 1 to 14 do

   begin

   readln(x);

   if min > x then

       min := x;

   end;

writeln('Минимальное число в последовательности:', min);

end.