Вмагазине конфеты в упаковках по 0,1 кг, 0,2кг, 0,9кг, 1 кг. известно, что1кг конфет стоит x рублей. выведите стоимость каждой упаковки.

44

Объяснение:

Одна последовательность = 1 строка (например 1,2,3,4,5)

Действуя по алгоритму сумматора Новая последовательность и Предыдущая = 45 (Это действует для каждого нового повторения алгоритма)

Алгоритм использует две последовательности, а так как нам нужно посчитать сколько последовательностей будет в программе - нужно 45 разделить на 2

Получаем, что одна последовательность = 22,5

Если мы 1000 разделим на 22,5, то получим 44,4444...

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

ответ 44.

var m,a:array [-100..100] of integer;

n,j,i,k,count:integer;

begin

write('введите сколько необходимо чисел: ');

read(n);

write('число к: ');

read(k);

//осуществим ввод n элементов и отсортируем по условию в другой массив а

for i:=1 to n do begin

 read(m[i]);

if m[i]>k then begin

 inc(count);

 a[count]:=m[i];

 end;

end;

//отсортируем этот массив пузырьковым методом  

for i:=1 to count-1 do begin

 for j:=1 to count-i do

   if a[j] < a[j+1] then

     swap(a[j],a[j+1]);

  end;

//выводим уже отсортированный массив чисел > к

  for i:=1 to count do

    write(a[i],' ');

end.