Ребят
спасайте
задание по паскалю
В двухмерном массиве заменить элементы меньшие 3 их кубами.Массив заполнить случайными числами в интервале от -3 до 10
вывести на экран исходный и полученный массив в виде таблицы
пожалуйста
помогите:!

PascalABC.NET

const
  n=5;
  m=6;
var
  a: array[1..n,1..m]of integer;
  i,j:integer;
begin
writeln(Исходный массив:);
for i:=1 to n do
  begin
  for j:=1 to m do
    begin
    a[i,j]:=random(-3,10);
    write(a[i,j]:5);
    end;
  writeln;
  end;
writeln(Измененный массив:);
for i:=1 to n do
  begin
  for j:=1 to m do
    begin
    if a[i,j]<3 then a[i,j]:=Trunc(power(a[i,j],3));
    write(a[i,j]:5);
    end;
  writeln;
  end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.