Хром жрет переносы - сейчас исправлю
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
int N; cin >> N;
int **arr = new int*[N];
for (int i = 0; i < N; i++) {
arr[i] = new int[N];
for (int j = 0; j < N; j++)
cin >> arr[i][j];
}
int mem = 0;
for (int i = 1; i < N; ++i)
if (arr[mem][N - 1 - mem] > arr[i][N - 1 - i])
mem = i; cout << mem + 1 << " " << N - mem << endl;
system("pause");
return 0;
}
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Write('*'*20)
end.
Лови фото. на нем второй пример объясняет как переводить из двоичной в десятичную
Var
f1: text;
a,b: integer;
begin
assign (f1, '<file adress and name>');
read (f1, a,b);
close;
if a>b then writeln (a, '>', b)
else writeln (a, '<', b);
end.