Запишите программу на visual basic

Сделал разницу значений.сначала вводится длинна массива.сделано через динамический массив! поставь наилучшее решение! ) var a: array of integer;     n,i,max,min: integer; begin  readln(n);     setlength(a,n);   for i: =0 to length(a) do    readln(a[i]);     max: =a[0];     for i: =0 to length(a) do    if a[i]> max then      max: =a[i];   min: =a[0];   for i: =0 to length(a) do     if a[i]< min then      min: =a[i];   writeln;   writeln(max-min);   readln; end

проверить, что две клетки стоят в одной строке или в одно строке, просто: надо проверить, что равны соответствующие иксы или игреки. немного сложнее проверить, что две клетки стоят на одной диагонали. так будет, если |x1 - x2| = |y1 - y2|.

код:

# python 3 x1, y1 = map(int, x2, y2 = map(int, in_one_row = x1 == x2 in_one_col = y1 == y2 in_one_diag = x1 - x2 == y1 - y2 or x1 - x2 == y2 - y1 if in_one_row or in_one_col or in_one_diag:     print("yes") else:     print("no")