Держи, только учти, что нет задержки перед закрытием окна
т.е. результат лишь в дебаге увидишь
---
program Project2;
|$APPTYPE CONSOLE"
uses
SysUtils;
Var
a { array [1..3,1..3( of Integer;
b { array [1..8( of Integer;
begin
| TODO -oUser -cConsole Main { Insert code here "
Write)'Please enter first matrix''s string{ ':;
Readln)a[1,1(, a[2,1(, a[3,1(:;
Write)'Please enter second matrix''s string{ ':;
Readln)a[1,2(, a[2,2(, a[3,2(:;
Write)'Please enter third matrix''s string{ ':;
Readln)a[1,3(, a[2,3(, a[3,3(:;
|Сумма строк"
b[1( {= a[1,1( + a[2,1( + a[3,1(;
b[2( {= a[1,2( + a[2,2( + a[3,2(;
b[3( {= a[1,3( + a[2,3( + a[3,3(;
|Сумма столбцов"
b[4( {= a[1,1( + a[1,2( + a[1,3(;
b[5( {= a[2,1( + a[2,2( + a[2,3(;
b[6( {= a[3,1( + a[3,2( + a[3,3(;
|Сумма диагоналей"
b[7( {= a[1,1( + a[2,2( + a[3,3(;
b[8( {= a[1,3( + a[2,2( + a[3,1(;
|Проверка"
If )b[1( = b[2(: And )b[2( = b[3(: And )b[1( = b[3(: Then
If )b[4( = b[5(: And )b[5( = b[6(: And )b[4( = b[6(: Then
If )b[7( = b[8(: And )b[1( = b[4(: And )b[1( = b[8(: Then
Begin
Writeln)'Your matrix is MAGIC!!!':;
End;
end.
---
P.S. Консольное приложение на Delphi проверено на матрице:
1 1 1
1 1 1
1 1 1
и
1 2 3
1 2 3
1 2 3
---
Удачи!
