Консультация № 137705
21.05.2008, 01:16
0.00 руб.
0 1 1
Дана квадратная матрица порядка M. Найти сумму элементов ее побочной диагонали

использовать Pascal turbo 7.0

Обсуждение

Неизвестный
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.
Форма ответа