Var a,b:array[1..2,1..3]of integer;
i, j:byte;
Begin
for i:=1 to 2 do
for j:=1 to 3 do readln(a[i,j]);
for i:=1 to 2 do
begin
for j:=1 to 3 do write(a[i,j]:3);
writeln
end;
for i:=1 to 2 do
for j:=1 to 3 do
if i = 1 then b[i,j]:=a[2,j] else
b[i,j]:=a[1,j];
for i:=1 to 2 do
begin
for j:=1 to 3 do write (b[i,j]:3);
writeln
end;
readln
End.
write
C h u k a l o v a
68 104 117 107 97 108 111 118 97
1000100 1101000 1110101 1101011 1100001 1101100 1101111 1110110 <span>1100001</span>
Зубр - I
Зубр & Тур - II
Тур - III
Решение: I+III - II (18000+12000)-5000=25000