Определить является ли данная квадратная матрица а(5,5) магическим квадратом (т.е одинаковы ли суммы чисел во всех строках, столбцах и диагоналях). в delphi.

256

270

Посмотреть ответы 2

Ответы на вопрос:

макс10710

Информатика

4,5(56 оценок)

Program abc; const a: array [1..5] of array [1..5] of integer = ((1, 15, 24, 8, ,18,2,11,,21,10,19,,4,13,22,,7,16,5,14)); var i, j, x: integer; arr: array [1..12] of integer; begin for i : = 1 to 5 do begin x : = 0; for j : = 1 to 5 do x : = x + a[i][j]; arr[i] : = x; end; for i : = 1 to 5 do begin x : = 0; for j : = 1 to 5 do begin x : = x + a[j][i]; end; arr[5+i] : = x; end; x : = 0; for i : = 1 to 5 do begin x : = x + a[i][i]; end; arr[11] : = x; x : = 0; for i : = 1 to 5 do begin x : = x + a[i][6 - i]; end; arr[12] : = x; for i : = 1 to 12 do begin if arr[i] < > x then begin writeln('не магический'); break; end; if i = 12 then writeln('магический.'); end; end.

annaaristova

Информатика

4,4(36 оценок)

Ответ: b) до 8-ки можно дойти: вперёд на 5 и плюс 3; до 13 от 8-ки – вперёд на 5; от 8-ки плюс 3 и плюс 3 – придём в 14; от 13 плюс 3 – придём в 16; от 13 вперёд на 5 – придём в 18. остаются 1, 2 и 7.