Напишите программу, которая задает трехмерный массив и находит в нем наибольшее…

const n=3; var a: array[1… n, 1… n, 1… n] of integer; //объявляем трехмерный массив размерности N x N x N i, j, k, max: integer; begin randomize; max: =-maxint — 1; {присваисваем maxrcbvfkmyjve 'ktvtyne минимальное возможное значения типа integer} for i: =1 to n do { с помощью трех циклов проходим по всем элементам массива, чобственно тоже самое что и с двумерным массивом только добаляемтся еще 1 цикл} begin writeln; writeln ('i=', i); {выводм массива производится в виде нескольких квадратных матриц тут указывается номер каждой квадратной матрицы} for j: =1 to n do begin for k: =1 to n do begin a[i, j, k]: =random (21) — 10; // генерируем случайное значение от -10 до 10 if a[i, j, k] > max then { если больше текущего максимального то станвится новым максимальным} max: =a[i, j, k]; write (a[i, j, k]: 4); //выводим элемент массива end; writeln; end; end; writeln ('Максимальный элемент массива равен ', max); end.