Program f12_d1;
Const n=3;
Var I,j,x1,k,s,s1: integer; a: array[1..n,1..n] of integer;
Begin
For I:=1 to n do
For j:=1 to n do
Begin
Write(‘ а енгізу’, I,j ); read(a[I,j]);
End;
Writeln(‘енгізілген матрица түрі:’);
For I:=1 to n do
Begin
For j:=1 to n do write(a[I,j]:3);
Writeln
End;
X1:=0;
For i=1 to n do x1:=x1+ a(1,i) k:=0; for i:=1 to n do
Begin s:=0;
For j:=1 to n do s:=s+a[I,j];
If s=x1 then k:=k+1;
End;
For i:=1 to n do
Begin s:=0;
For j:=1 to n do s:=s+a[j,i];
If s=x1 then k:=k+1 end;
S:=0; s1:=0;
For i:=1 to n do begin
S:=s+a[I,i];
S1:=s1+a[I,n-i+1] end;
If s=x1 then k=k+1; if s1=x1 then k=k+1;
If k=2*n+2 then write(‘магикалық квадрат’) else write (‘жоқ’) end.
Латын кестесі
Берілген 4х4 екі өлшемді массивтің қатары мен бағанасында 1 ден 4-ке дейінгі сандар бір рет қана кездесетін матрица екенін анықтайтын программа жаз. Мысалы:
Достарыңызбен бөлісу: |
