дан произвольный двумерный массив целых чисел.Найти максимальный элемент кратный 3 в этом массиве

  • Program Vigod;
    uses crt;
    const
      n = 12;
      m = 13;
    var
      a:array[1..n,1..m] of integer;
      i, j, max: integer;
    begin
      writeln('*** alphaues is thinking... ***');
      writeln('***          OK             ***');
      {заполняем массив случайными числами}
      randomize;
      for i:=1 to n do
        for j:=1 to m do
          begin
            a[i,j]:=random(101)-50;
            if a[i,j] mod 3 = 0 then max:=a[i,j];
          end;
      {находим нужный элемент и выводим массив}
      for i:=1 to n do
        begin
          for j:=1 to m do
          begin
            if (a[i,j] mod 3 = 0) and (a[i,j]>max)then
              max:=a[i,j];
            write(a[i,j]:4);
          end;
          writeln();
        end;
       writeln();
       writeln('максимальный элемент кратный 3, равeн ',max);
    end.

    Проверено - работает на Паскаль АВС