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

program zamena;
const
	n=3;
	k=n*2;
a:array [1..k,1..k] of integer=	((0,2,1,2,5,6),
                             	 (4,5,7,8,1,8),
                             	 (0,6,2,3,3,4),
                          	 (5,6,1,9,7,1),
                          	 (1,2,3,4,5,6),
                          	 (6,5,4,3,2,1));
Var
	buff:integer;
	i:integer;
	j:integer;
Begin
For i:=1 to k Do
		Begin
			For j:=1 to k DO write(a[i,j],' ');
			writeln;
		end;

	For i:=1 to k Do
		Begin
		For j:=n+1 to k Do
			Begin
				If i<=n then
				Begin
					buff:=a[i,j];
					a[i,j]:=a[i+n,j-n];
					a[i+n,j-n]:=buff;
				End;
			End;
		End;
  writeln;
  writeln('RESULT:');
  writeln;
	For i:=1 to k Do
		Begin
			For j:=1 to k DO write(a[i,j],' ');
			writeln;
		end;
  readln;
	
End.

uses crt;
var a: array [1..100] of longint;
    i,k,n,s:integer;
begin
clrscr;

{vvod elementov, k-kol-vo elementov}

for i:=a[1] to k do
if a[i]<0
then i:=n;

s:=0;
begin
for i:=a[n] to k do
s:=s+a[i];
end;

writeln(s:5:2);
readln;
end.