const m=9; n=10;var a:array[1..m,1..n] of integer;i,j,m1,n1:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(13)-5; write(a[i,j]:4); end; writeln; end;writeln('Элемент, расположенный в правом верхнем углу массива: ',a[1,n]);writeln('Элемент, расположенный в левом нижнем углу массива: ',a[m,1]);writeln('Какой элемент второй строки нужно вывести?');readln(n1);writeln('Элемент, расположенный во второй строке в ',n1,' столбце: ',a[2,n1]);writeln('Какой элемент третьего столбца нужно вывести?');readln(m1);writeln('Элемент, расположенный в третьем столбце в(о) ',m1,' строке: ',a[m1,3]);writeln('Какой элемент массива нужно вывести?');readln(m1,n1);writeln('Элемент, расположенный в(о) ',m1,' строке в(о) ',n1,' столбце: ',a[m1,n1]);end.Пример:Исходный массив: 7 -5 7 7 3 3 4 6 -5 1 7 -3 -1 -5 -1 -1 2 4 -2 6 0 3 4 -2 -3 -1 -2 7 3 -2 7 3 -2 6 -2 4 -1 1 0 3 2 4 -1 6 -2 2 5 4 4 -1 -1 -4 5 2 5 -1 -5 5 -5 0 4 2 -4 2 -3 1 -1 5 3 4 -2 5 -4 -1 5 5 3 3 -2 1 5 2 -3 3 5 4 3 3 4 5Элемент, расположенный в правом верхнем углу массива: 1Элемент, расположенный в левом нижнем углу массива: 5Какой элемент второй строки нужно вывести?Элемент, расположенный во второй строке в 4 столбце: -5Какой элемент третьего столбца нужно вывести?Элемент, расположенный в третьем столбце в(о) 5 строке: -1Какой элемент массива нужно вывести?Элемент, расположенный в(о) 6 строке в(о) 2 столбце: -4