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