Question

Дана матрица размерностью n×m. Элементы, индексы которых четные, возвести в квадрат. Измененную матрицу вывести на экран. (pascal)

Answer 1

Program n1;

const n=4; m=5;

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(20);

write(a[i,j],' ');

end;

writeln;

end;

writeln('полученная матрица:');

for i:=1 to n do

begin

for j:=1 to m do begin

if (j mod 2=0) and (i mod 2=0) then a[i,j]:=a[i,j]*a[i,j];

write(a[i,j],' ');

end;

writeln;

end;

end.

Answer 2

Для выполнения данной задачи в Pascal, необходимо создать матрицу размерностью n×m, затем пройтись по всем элементам с четными индексами и возвести их в квадрат. Вот пример кода, который решает эту задачу:

pascalCopy code
program SquareEvenIndices;

const
  n = 4; // Задайте значение n - количество строк
  m = 5; // Задайте значение m - количество столбцов

type
  Matrix = array[1..n, 1..m] of Integer;

procedure SquareElementsWithEvenIndices(var matrix: Matrix);
var
  i, j: Integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      // Проверяем, что оба индекса (i и j) четные
      if (i mod 2 = 0) and (j mod 2 = 0) then
        matrix[i, j] := matrix[i, j] * matrix[i, j];
    end;
  end;
end;

procedure DisplayMatrix(matrix: Matrix);
var
  i, j: Integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(matrix[i, j]:4);
    Writeln;
  end;
end;

var
  myMatrix: Matrix;
  i, j: Integer;

begin
  // Вводим значения элементов матрицы (для простоты примера, зададим случайные значения)
  for i := 1 to n do
  begin
    for j := 1 to m do
      myMatrix[i, j] := Random(10); // случайные числа от 0 до 9
  end;

  Writeln('Исходная матрица:');
  DisplayMatrix(myMatrix);

  SquareElementsWithEvenIndices(myMatrix);

  Writeln;
  Writeln('Матрица с квадратами элементов с четными индексами:');
  DisplayMatrix(myMatrix);
end.

Программа создаст матрицу размерностью n×m, заполнит ее случайными значениями, затем возводит в квадрат элементы с четными индексами и выведет измененную матрицу на экран.