Размеры пластины, измеренные с точностью 1 мм, оказались равны 3 × 5 см. Найдите абсолютную погрешность (в см2) вычисленной по этим данным площади пластины.

PascalABC.NET 3.2, сборка 1387 от 20.02.2017
Внимание! Если программа не работает, обновите версию!

//const
//  MAX_ROW=5;
//  MAX_COL=8;
begin
  var a:=MatrRandom(MAX_ROW,MAX_COL,10,99); a.Println(3);
  (var imax, var jmax, var imin, var jmin):=(0,0,0,0);
  for var i:=0 to MAX_ROW-1 do
    for var j:=0 to MAX_COL-1 do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j)
      else
        if a[i,j]<a[imin,jmin] then (imin,jmin):=(i,j);
  for var i:=0 to MAX_ROW-1 do Swap(a[i,jmax],a[i,jmin]);
  Writeln('-'*3*MAX_COL); a.Println(3)
end.

Для проверки работы программы снимите комментарии с первых трех строк.

Class OftenChar{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in);
  String string = in.nextLine(); char chars[] = new char[4];
  chars[0] = in.nextLine().charAt(0); chars[2] = in.nextLine().charAt(0);
  for(int sChar = 0; sChar<string.length(); sChar++)
   if(string.charAt(sChar)==chars[0])chars[1]++;
   else if(string.charAt(sChar)==chars[2])chars[3]++;
  System.out.print("\n"+(chars[1]==chars[3]?chars[0]+""+chars[2]:chars[1]>chars[3]?chars[0]:chars[2]));
 }
}