Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы+Курсовик / Экзамен
.pas program first;
uses crt;
var a: array [1..4,1..4] of integer;
i,j: integer;
begin
clrscr;
writeln('Vvedite matricu 4x4 postrochno:');
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);
for i:=1 to 4 do
begin
writeln;
for j:=1 to 4 do
write(a[i,j]);
end;
writeln;
writeln;
for i:=1 to 3 do
begin
if a[i+1,1]<>a[1,i+1] then
writeln('Ne simmetrichna!') else
if a[4,i+1]<>a[i+1,4] then
writeln('Ne simmetrichna!!') else
if a[3,2]<>a[2,3] then
writeln('Ne simmetrichna!!!') else
writeln('Simmetrichna!!!!');
end;
readkey
end.
uses crt;
var a: array [1..4,1..4] of integer;
i,j: integer;
begin
clrscr;
writeln('Vvedite matricu 4x4 postrochno:');
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);
for i:=1 to 4 do
begin
writeln;
for j:=1 to 4 do
write(a[i,j]);
end;
writeln;
writeln;
for i:=1 to 3 do
begin
if a[i+1,1]<>a[1,i+1] then
writeln('Ne simmetrichna!') else
if a[4,i+1]<>a[i+1,4] then
writeln('Ne simmetrichna!!') else
if a[3,2]<>a[2,3] then
writeln('Ne simmetrichna!!!') else
writeln('Simmetrichna!!!!');
end;
readkey
end.
Соседние файлы в папке Лабы+Курсовик