Визначити більше двух натуральних чисел )как это делать вообщее

4

Объяснение:

Замечу, что команды цикла (кроме k++) попросту меняют местами значения элементов, рассматриваемых на текущей итерации.

k = 0

A = [3, -5, 1, -4, 11, 0, -14, 10, -8, 4]

i = 0

A[0]*A[1] = 3*(-5) = -15

-15 < 0 — true

k = 1, t = 3

A[0] = -5, A[1] = 3

A = [-5, 3, 1, -4, 11, 0, -14, 10, -8, 4]

i = 1

A[1]*A[2] = 3*1 = 2

3 < 0 — false

A = [-5, 3, 1, -4, 11, 0, -14, 10, -8, 4]

i = 2

A[2]*A[3] = 1*(-4) = -4

-4 < 0 — true

k = 2, t = 1

A[2] = -4, A[3] = 1

A = [-5, 3, -4, 1, 11, 0, -14, 10, -8, 4]

i = 3

A[3]*A[4] = 1*11 = 11

11 < 0 — false

A = [-5, 3, -4, 1, 11, 0, -14, 10, -8, 4]

i = 4

A[4]*A[5] = 11*0 = 0

0 < 0 — false

A = [-5, 3, -4, 1, 11, 0, -14, 10, -8, 4]

i = 5

A[5]*A[6] = 0*(-14) = 0

0 < 0 — false

A = [-5, 3, -4, 1, 11, 0, -14, 10, -8, 4]

i = 6

A[6]*A[7] = -14*10 = -140

-140 < 0 — true

k = 3, t = -14

A[2] = 10, A[3] = -14

A = [-5, 3, -4, 1, 11, 0, 10, -14, -8, 4]

i = 7

A[7]*A[8] = -14*(-8) = 112

112 < 0 — false

A = [-5, 3, -4, 1, 11, 0, 10, -14, -8, 4]

i = 8

A[8]*A[9] = -8*4 = -32

-32 < 0 — true

k = 4, t = -8

A[2] = 4, A[3] = -8

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

program tovar;
var t1,t2,p1,p2:integer;
    c1,c2,s:real;
Begin
WriteLn('Сколько товаров первого вида было в начале рабочего дня?');
ReadLn(t1);
WriteLn('Цена товаров первого вида?');
ReadLn(c1);
WriteLn('Сколько товаров второго вида было в начале рабочего дня?');
ReadLn(t2);
WriteLn('Цена товаров второго вида?');
ReadLn(c2);
WriteLn('сколько товаров перового вида было продано за день?');
ReadLn(p1);
WriteLn('сколько товаров второго вида было продано за день?');
ReadLn(p2);
s:=p1*c1+p2*c2;
WriteLn('Выручка за день ' ,s);
end.

/// Возник вопрос. Зачем спрашивать, сколько товаров было в начале рабочего дня, если эти данные не используются, вот я и решил составить программу, которая, возможно, требовалась

program tovar;
var t1,t2,p1,p2:integer;
    c1,c2,s:real;
Begin
WriteLn('Сколько товаров первого вида было в начале рабочего дня?');
ReadLn(t1);
WriteLn('Цена товаров первого вида?');
ReadLn(c1);
WriteLn('Сколько товаров второго вида было в начале рабочего дня?');
ReadLn(t2);
WriteLn('Цена товаров второго вида?');
ReadLn(c2);
WriteLn('сколько товаров перового вида осталось?');
ReadLn(p1);
WriteLn('сколько товаров второго вида осталось?');
ReadLn(p2);
s:=(t1-p1)*c1+(t2-p2)*c2;
if (t1-p1<0) or (t2-p2<0) then WriteLn('Внимание! Кол-во оставшихся товаров, больше чем кол-во товаров в начале рабочего дня. Проверьте правильность данных.');
WriteLn('Выручка за день ' ,s);
end.