Ввести двумерный массив а.каждый элемент в массиве чье значение лежит вне диапазона [-8; 6] возвести в квадрат.массив вывести до и после преобразования

122

379

Посмотреть ответы 2

Ответы на вопрос:

komarovaliza64

Информатика

4,6(97 оценок)

//pascal abc.net v3.0 сборка 1111 const n=5; var ma: array[1..n,1..n] of integer; i,j: integer; begin writeln('matrix '); for i: =1 to n do begin writeln; for j: =1 to n do readln(ma[i,j]); end; writeln('first matrix: '); for i: =1 to n do begin writeln; for j: =1 to n do begin write(ma[i,j]: 4); if (ma[i,j]< -8) or (ma[i,j]> 6) then ma[i,j]: =sqr(ma[i,j]); end; end; writeln; writeln('final matrix: '); for i: =1 to n do begin writeln; for j: =1 to n do write(ma[i,j]: 4); end; end. пример ввода: 1234567891234567891234567пример вывода: first matrix: 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7final matrix: 1 2 3 4 5 6 49 64 81 1 2 3 4 5 6 49 64 81 1 2 3 4 5 6 49