Написать программу для определения сколько раз число 10 встречается среди элементов одномерного массива. (10, 9.6, 7, 10, 2, 4, 6, 7, 10, 11, 22, 33)

//Pascal
var
  i, Count: byte;
  a: array [1 .. 12] of real = (10,9.6,7,10,2,4,6,7,10,11,22,33);
begin
for i := 1 to 12 do
  if A[i] = 10 then Count := Count + 1;
writeln('Количество чисел 10 в массиве = ', Count);
end.

126 дисков

Объяснение:

Рассмотрим 6го покупателя

х-было  

0,5х+1-продал

осталось 0

х-(0,5х+1)=0

х-0,5х-1=0

0,5х=1

х=1:0,5=2

Аналогично 5й покупатель

х-(0,5х+1)=2

х-0,5х-1=2

0,5х=3

х=3:0,5=6

Аналогично 4й покупатель

х-(0,5х+1)=6

х-0,5х-1=6

0,5х=7

х=7:0,5=14

Аналогично 3й покупатель

х-(0,5х+1)=14

х-0,5х-1=14

0,5х=15

х=15:0,5=30

Аналогично 2й покупатель

х-(0,5х+1)=30

х-0,5х-1=30

0,5х=31

х=31:0,5=62

Аналогично 1й покупатель

х-(0,5х+1)=62

х-0,5х-1=62

0,5х=63

х=63:0,5=126

ответ: Попов принес на ярмарку 126 дисков

Информатика - наука об информации и автоматизации информационных процессов.
Информация - это новости, новые факты, знания про объекты и явления окружающей среды.
Компьютер - устройство или система выполнять заданную чётко определённую изменяемую последовательность операций.
Файл - это упорядоченная совокупность данных на внешнем носителе которая имеет имя которое операционная система обрабатывает как единое целое.  
Текстовой редактор - это самостоятельная компьютерная программа или компонент программного комплекса.
Графический редактор - это программа позволяющая создавать, просматривать, обрабатывать и редактировать цифровые изображения на компьютере.