Экономика
Pascal ABC.Задайте массив из файла, в котором будут размещены однозначные цифры Вашей даты рождения. Например, Вы родились 5 ноября 1990 года, но массив будет
выглядеть следующим образом: 0,5,1,1,1,9,9,0. Отсортируйте данный массив, посчитайте сумму его элементов и среднее арифметическое. Результат сохраните в файл.
В чём ошибка ? Дело в том ,что он не останавливается и я не понимаю почему .
uses graphABC,crt;
VAR
i,b,c,d: integer;
BEGIN
setWindowsize ( 1200,800);
b:= 100;
while b > 0 do
begin
setPencolor (clBlack);
i:= i+1;
line ( b-i*10, 0,b-i*10,20);
delay ( 100);
setPencolor (clWhite );
line ( b-i*10, 0,b-i*10,20);
end;
END.
На доске написано 16 чисел [82, 56, 84, 70, 73, 99, 79, 79, 66, 90, 71, 99, 99, 65, 64, 50] (именно в таком порядке). Дима играет в игру со следующими правилами:
перед каждым ходом на доске написано 2N чисел (N каждый раз разное)
на каждом ходе Дима выбирает, какую половину он хочет стереть — первые N чисел или последние N чисел
после этого Дима стирает выбранную половину и получает количество очков, равное максимальному стертому этим ходом числу.
игра заканчивается, когда на доске остается одно число, и оно не засчитывается Диме в очки
Какое максимальное число очков сможет набрать Дима?
