Самый рациональный решать с конца. В 3-ий день он продал 1/2 остатка арбузов и еще 10, и у него осталось 16. Значит было 1/2 остатка и 26. То есть 26 - это половина остатка, а другую половину он продал. Значит, на утро 3-го дня у него оставалось 52. Во 2-ой день он продал 1/4 остатка от 1-го дня и еще 8, и осталось, как мы уже знаем, 52. Значит, было 1/4 остатка от 1-го дня и 60. То есть 60 - это 3/4 остатка, а весь остаток - 80 арбузов. И наконец, в 1-ый день он продал 1/3 всех арбузов и еще 6, и осталось 80. Значит, было 1/3 всех и 86. То есть 86 - это 2/3 всех арбузов, а всего их было 129.
Итак, у него было 129 арбузов. В 1-ый день он продал 1/3*129 + 6 = 43 + 6 = 49 арбузов. Осталось 129 - 49 = 80. Во 2-ой день он продал 1/4*80 + 8 = 20 + 8 = 28 арбузов. Осталось 80 - 28 = 52. В 3-ий день он продал 1/2*52 + 10 = 26 + 10 = 36 арбузов. Осталось 52 - 36 = 16
Program example_dom; var col_pol,col_otr,i,n,k,s:integer; a:array[1..100] of integer; Begin Randomize; writeln('Введите размерность: ');readln(n); For i:=1 to n do Begin a[i]:=-50+random(100); write(a[i]:4); end; s:=s+a[i]; inc(k); col_pol:=0; col_otr:=0; for i:=1 to n do begin if a[i]>0 then col_pol:=col_pol+1 else col_otr:=col_otr+1; end; writeln('сумма элементов массив = ',s); writeln('количество положительных элементов=',col_pol); writeln('количество отрицательных элементов=',col_otr); readln; End.
если не ошибаюсь 5,(69)