Написать программу с использованием процедуры или функции. ...
Написать программу с использованием процедуры или функции. Объявлен массив целых чисел. m размером 5х10. Заполнить массив числами из промежутка [-20,20]. Каждый элемент массива заменить его кубом. Исходный и измененный массив вывести на экран. Возведение в 3 степень организовать с помощью функции или процедуры
Есть ответ
17.12.2022
159
Ответ
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. //Конец программы
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022