Question

PASCAL ABC
в двумерном массиве определить есть ли элементы больше 7, если есть, то элементы строки, в которой содержится данный элемент возвести в квадрат, кроме него самого

Answer 1

var

   d : array[,] of integer; // объявляем динамический массив

   a, b : integer;

begin

   write('введите размер массива: ');

   readln(a, b);

   d := new integer[a,b]; // задаем размер динамического массива

   for var i := 0 to a-1 do for var j := 0 to b-1 do d[i,j] := random(15); // заполняем массив случайными числами в диапазоне от 0 до 14

   for var i := 0 to a-1 do begin

       for var j := 0 to b-1 do begin

           if d[i,j] > 7 then begin // ищем первый элемент больше 7 в данной строке

               for var n := 0 to b-1 do if d[i,n] <= 7 then d[i,n] := sqr(d[i,n]); // заменяем все элементы больше 7 в данной строке

               break;

           end;

       end;

   end;

end.