Дапустим что сегодня 15 декабря . какой месяц будет через 1000месяцов?

Ответ: через 1000 месяцев будет 15 апреля.

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',10); a.println;   var k: =1;   var max: =a[0];   for var i: =1 to a.length-1 do       if a[i]> max then begin max: =a[i]; k: =1 end       else           if a[i]=max then k+=1;   writeln('количество макс. элементов: ',k) end. пример n= 17 -7 -9 1 -9 -3 7 1 -6 6 7 -2 2 7 -1 -4 6 4 количество макс. элементов: 3

Var       a: array[1..100] of integer;       i, n: integer;       sum, product, harmonic: real; begin       n : = 50;             writeln('данные массива: ');       for i : = 1 to n do       begin               a[i] : = random(60);               write(a[i], ' ');       end;       writeln();             {подсчет суммы и произведения и агригатов}       sum : = 0;       product : = 1;       for i : = 1 to n do               if i mod 2 = 0 then                       sum : = sum + a[i]               else                       product : = product * a[i];       writeln('sum = ', sum);       writeln('product = ', product); end.