Решите, пожалуйста, на 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 выведите искомый элемент.
Ответы
Ответ дал:
0
## // 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])
Вас заинтересует
2 месяца назад
2 месяца назад
2 месяца назад
1 год назад
1 год назад
7 лет назад