Дан массив из чесел, массив 3х3 (двумерный). Найти сумму элементов главной диагонали.Исходный массив вывести на экран . Турбо Паскаль( подробно если можно)
program Main; const N = 3; type TArray = array[1..N, 1..N] of Integer; var A: TArray; i, j, diagonalSum: Integer; begin // Заполнение массива случайными числами randomize; for i := 1 to N do for j := 1 to N do A[i, j] := random(10); // Вывод исходного массива на экран writeln('Исходный массив:'); for i := 1 to N do begin for j := 1 to N do write(A[i, j], ' '); writeln; end; // Нахождение суммы элементов главной диагонали diagonalSum := 0; for i := 1 to N do diagonalSum := diagonalSum + A[i, i]; // Вывод суммы элементов главной диагонали на экран writeln('Сумма элементов главной диагонали: ', diagonalSum); end.
Этот код заполняет двумерный массив 3x3 случайными числами и выводит его на экран. Затем находится сумма элементов главной диагонали и выводится на экран.
Пример кода на Turbo Pascal:
program Main;const
N = 3;
type
TArray = array[1..N, 1..N] of Integer;
var
A: TArray;
i, j, diagonalSum: Integer;
begin
// Заполнение массива случайными числами
randomize;
for i := 1 to N do
for j := 1 to N do
A[i, j] := random(10);
// Вывод исходного массива на экран
writeln('Исходный массив:');
for i := 1 to N do
begin
for j := 1 to N do
write(A[i, j], ' ');
writeln;
end;
// Нахождение суммы элементов главной диагонали
diagonalSum := 0;
for i := 1 to N do
diagonalSum := diagonalSum + A[i, i];
// Вывод суммы элементов главной диагонали на экран
writeln('Сумма элементов главной диагонали: ', diagonalSum);
end.
Этот код заполняет двумерный массив 3x3 случайными числами и выводит его на экран. Затем находится сумма элементов главной диагонали и выводится на экран.