Question

Решите, пожалуйста, на PascalABC.net

Напишите программу, которая выводит элемент из строки Y и столбца X матрицы размера N×M, которая заполнена следующим образом:

0 1 2 3
7 6 5 4
8 9 10 11

Входные данные

Входной файл INPUT.TXT содержит натуральные числа N, M, Y, X (Y ≤ N ≤ 50; X ≤ M ≤ 50). N - количество строк матрицы, M - количество столбцов матрицы, Y и X - номера строки и столбца искомого элемента.

Выходные данные

В выходной файл OUTPUT.TXT выведите искомый элемент.

Answer 1

##    // PascalАВС.NЕТ 3.9

Assign(input, 'INPUT.TXT');

var (n, m, y, x) := ReadInteger4;

var a := new integer[n, m];

for var i := 0 to n - 1 do

 for var j := 0 to m - 1 do

   a[i, j] := i.IsEven ? m * i + j : m * (i + 1) - j - 1;

Assign(output, 'OUTPUT.TXT');

Print(a[y - 1, x - 1])