ANTICHAT — форум по информационной безопасности, OSINT и технологиям

if (matrix[0][0]<0)
then
summ:=matrix[0][0]+matrix[0][1]+matrix[0][2];
end;

if (matrix[1][1]<0)
then
summ:=matrix[1][0]+matrix[1][1]+matrix[1][2];
end;

if (matrix[2][2]<0)
then
summ:=matrix[2][0]+matrix[2][1]+matrix[2][2];
end;

program perestanovki(input, output);
const n=5;
type arr=array[1..n] of integer;
var x:arr; i:integer;

procedure trans(x:arr; k:integer);
var i,temp:integer;
  begin  
     if k=n then begin for i:=1 to n do write(x[i],' '); writeln; end
     else
       begin
         for i:=k to n do
         begin
         temp:=x[k];
         x[k]:=x[i];
         x[i]:=temp;
         trans(x,k+1);
         end;
       end;
  end;

begin
for i:=1 to n do read(x[i]);
trans(x,1);
readln;
readln
end.