Задание:
Создать двумерный массив размером NXM. Заполнить его произвольным обраом. Найти разность первого и последнего элементамассива
Решение:
const n=5; m=5; var a: array[1… n, 1… m] of integer; i, j: integer; begin for i: =1 to n do for j: =1 to m do begin a[i, j]: =random (100); write (a[i, j], '); if (j mod m=0) then writeln; end; writeln ('Разность первого и последнего эл. Массива: ', a[1, 1] — a[n, m]); end.
Знаете другой ответ?