Поделитесь своими знаниями, ответьте на вопрос:
Написать программу с использованием процедуры или функции. объявлен массив целых чисел. m размером 5х10. заполнить массив числами из промежутка [-20, 20]. каждый элемент массива заменить его кубом. исходный и измененный массив вывести на экран. возведение в 3 степень организовать с функции или процедуры
type mas = array [1..5, 1..10] of integer; //объявляем тип массива
var m: mas; //переменная типа массива i, j: integer; //переменные для цикла
procedure cubemas(var m: mas); //процедура возведения в кубvar i, j: integer; //локальные переменные цикла в процедуре
begin write('измененный массив: '); for i: = 1 to 5 do for j: = 1 to 10 do begin m[i, j]: = sqr(m[i, j]) * m[i, j]; //возводим элемент массива в куб write('m[', i, ', ', j, '] = ', m[i, j], ' '); //печатаем элемент массива end; //конец цикла writeln; //перевод на новую строкуend; //конец процедуры
begin write('исходный массив: '); for i: = 1 to 5 do for j: = 1 to 10 do begin m[i, j]: = random(40) - 20; {присваиваем элементу массива случайное значение из промежутка [-20, 20] } write('m[', i, ', ', j, '] = ', m[i, j], ' '); //печатаем элемент массива end; //конец цикла writeln; //перевод на новую строку cubemas(m); //вызываем процедуру возведения в кубend. //конец программы