Найти ошибки в программе и исправить. записать в тетрадь правильный код программы и пояснение, какую решает данная программа? program n; var a: array[1..100] of integer; n, min: integer; begin write (‘n=’); readln (n); for i: =1 to n do begin a[i]: = random(46)-20; writeln (a[i]); end; min: =a[1]; num: =0; for i: =1 to n do if a[i]< min then begin min: =a[i]; num: =i; end; writeln(‘ ‘,num); end.

Сначала массив Dat заполняется числами 2, 8, 6, ..., 7.
Затем производится поиск максимума среди Dat[1], Dat[8..12] (стандартный алгоритм: в m хранится текущий максимум, в month – номер месяца, в котором этот максимум впервые реализуется. Перед циклом m = Dat[1], month = 1, в цикле если элемент массива больше текущего максимума, то текущий максимум и номер месяца перезаписываются).
Наконец, выводится month – номер месяца, в котором впервые количество детских праздников достигает максимума.

Максимальное значение равно 8, впервые встречается среди Dat[1], Dat[8..12] в Dat[9].

ответ: 9.  

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.