Массив 5х5 заполнить случайными числами [0; 2]. посчитать количество максимальных элементов в массиве под побочной диагональю.

begin

  var a : = matrrandom(5, 5, 0, 2);

  a.println;

  var max : = integer.minvalue;

  var count : = 0;

  for var i : = 0 to 4 do

    for var j : = 0 to 4 do

      if i + j > 4 then

      begin

        if max < a[i, j] then

        begin

          max : = a[i, j];

          count : = 1

        end

        else

        if max = a[i,j] then

          count += 1

      end;

  write(count)

end.

1. ограничения поскольку в суммах участвуют только два однозначных числа, то сумма может находиться в пределах от 0 (0+0) до 18 (9+9). 2. анализ а) 211. 2-11 нарушает условие невозрастания, 21-1 - невозможная сумма 21. это число получиться не может. б) 1717. тут только 17-17, оба числа допустимы, невозрастание не нарушено. это первое из чисел, которое допустимо. в) 1817. тут только 18-17. оба числа допустимы, невозрастание не нарушено. это второе из чисел, которое допустимо. г) 1718. тут только 17-18. оба числа допустимы, но невозрастание нарушено. это число недопустимо. д) 1916. тут только 19-16. первое число недопустимо, поэтому и число 1916 недопустимо. е) 219. 2-19 содержит недопустимое число 19. 21-9 содержит недопустимое число 21. такое число недопустимо. ж) 21. 2-1. оба числа допустимы, невозрастание не нарушено. это третье из чисел, которое допустимо. з) 10. 1-0. оба числа допустимы, невозрастание не нарушено. это четвертое из чисел, которое допустимо. ответ: 4

№1 //pascalabc.net (версия 3.1, сборка 1196 от 09.03.2016) var n, i: integer;   begin                                      writeln ('введите число'); readln(n);                                                                         writeln('делители числа: ');     for i : = 1 to n div 2 do            if (n mod i) = 0 then begin        write(i,'  ');   end;                   end.              №2 (алгоритм не шустрый, но работает и понятный) //pascalabc.net (версия 3.1, сборка 1196 от 09.03.2016) var   a, b, x, y, nod: integer; begin   writeln('введите a,b');   readln(a, b);   x : = a; y : = b;   while x < > y do       if x > y           then x : = x - y       else y : = y - x;   nod : = x;   writeln('nod(', a, ',', b, ')=', nod); end.