На свободном рынке с ростом цены некоторого товара предложения этого товара растет. Кривые зависимости предложения q от цены P различны для разных товаров. С на товар, как правило, уменьшается с ростом цены. Если изобразить на одном графике кривую с с и кривую предложения Q(предл), то они пересекутся в одной точке(Q(0), P(0)). Величина P(0) называется равновесной ценой, так как при этой цене с равен предложению. Необходимо найти равновесную цену. Исходные данные: функция с функция предложения: S(p) = p^2/3 + p/7 + 90.

1.

program ll1;

var i, a: integer;

begin

i:=2;

a:=2;

writeln(a);

while i<=10 do

begin

a:=a*a;

i:=i+1;

writeln(a);

end;

end.

2.

program ll1;

var a, i, sum: integer;

ssum: real;

begin

i:=1;

sum:=0;

while i<=10 do

begin

i:=i+1;

readln(a);

sum:=sum+a;

end;

ssum:=sum/i;

if ssum<1000 then

writeln('Низкая цена');

end.

3.

program ll1;

var A: array[1..7] of integer;

i, pr: integer;

begin

Randomize;

for i:=1 to 7 do

begin

A[i]:=random(10)-5;

write(A[i], ' ');

if A[i] = 0 then A[i]:=1;

pr:=pr * A[i];

end;

writeln(pr);

end.

4.

program ll1;

begin

writeln(1*2*3*4*5*6 + 3*3*3*3*3*3);

end.

Прикладываю исходник и скрин в приложении к ответу.

Несколько замечаний:

1. Большое количество комментариев внесено в код исключительно в учебных целях. В реальную программу переносить не рекомендуется - признак нехорошего тона.

2. У вас допущены синтаксические ошибки в двух последних циклах, а точнее - в операторах If, в которых стоит три условия (объединённых and), но нет ключевого слова "then" и последующих инструкций. Исправил.

3. Так же, автор вашей программы построил на мой взгляд нелогичную структуру алгоритма. Переменные min, min2 и min3, как я догадался, должны хранить три минимальных значения массива.
А вот что происходит в вашей конструкции: первый цикл безошибочно находит наименьший элемент и записывает его в min, а последующие два цикла записывают в min2 и min3 первые попавшиеся(начиная с первого) элементы, если они больше min. Таким образом, нет никакой закономерности в том, что попадёт в эти переменные и сложно представить, для какой задачи потребовались бы такие случайности.

Одним из вариантов решения предлагаю изначально записывать в эти три переменные не значение первого элемента массива, а какое-то большое число, которое в массиве нам не встретится (например 100). Тогда цикл будет искать значения меньше 100 и перезаписывать им соответствующую переменную, пока не найдёт самое маленькое значение. В таком случае не очень стабильная переменная j нам так же не нужна, я её вычеркнул.

Вам отсылаю уже с учётом поправок, однако если вам требовалась именно первоначальная версия несмотря на её минусы, просто поправьте синтаксис в последних циклах (41 и 34 строчка на скрине) и пользуйтесь ей.