Question

Дана квадратная матрица целых чисел размером 4на4 составить программу в которой все элементы расположены на главной диагонали прировняется нулюПомогите это Паскаль

Answer 1

1) нужно ввести двумерный массив
var ar:array[1..4,1..4] of integer;
2) в теле программы проверяешь условие:
If I=J then 
ar[i,j]:=0;

Answer 2

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

program ZeroMainDiagonal;

const
  N = 4; // Размерность матрицы

var
  matrix: array[1..N, 1..N] of Integer;
  i, j: Integer;

begin
  // Заполнение матрицы случайными значениями (можете ввести значения с клавиатуры или как-то еще)
  for i := 1 to N do
    for j := 1 to N do
      matrix[i, j] := Random(10); // Здесь 10 - максимальное значение элемента, вы можете изменить по своему усмотрению

// Вывод исходной матрицы
  writeln('Исходная матрица:');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(matrix[i, j]:4);
    writeln;
  end;

// Обнуление элементов главной диагонали
  for i := 1 to N do
    matrix[i, i] := 0;

// Вывод результата
  writeln('Матрица с нулевой главной диагональю:');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(matrix[i, j]:4);
    writeln;
  end;
end.

Программа использует двумерный массив для представления квадратной матрицы размером 4 на 4 и заполняет его случайными значениями. Затем она обнуляет элементы главной диагонали и выводит исходную и измененную матрицы.