21.05.2008, 10:11
общий
это ответ
Здравствуйте, Артемий Тотктонада!
Программа в приложении.
Желаю удачи!
Приложение:
Program Pr137705;
Uses CRT;
Const M = 8;
Var Matrix: Array[1..M, 1..M] of Integer;
i, j, Sum: Integer;
Begin
ClrScr; Randomize; Sum := 0;
WriteLn(‘Исходная случайно заполненная матрица:‘);
for i := 1 to M do begin
for j := 1 to M do begin
{ Заполняем матрицу случайными числами от 0 до 99 }
Matrix[i, j] := Random(100);
Write(Matrix[i, j]: 5);
end;
{ Прибавляем к Sum элемент, находящийся на
побочной диагонали }
Sum + Matrix[i, M - i + 1];
WriteLn; WriteLn;
end;
WriteLn(‘Сумма побочной диагонали равна ‘, Sum);
ReadLn;
End.