[email protected] , ответ добавлен 22.03.2018 в 16:30

Var k,i,j:integer;R:Array[1..10, 1..10] of integer;Beginfor i:=1 to 10 do beginfor j:=1 to 10 do beginReadln(R[i,j]);write(R[i,j]:3);end;writeln;end;for i:=1 to 10 do for j:=1 to 10 do if i = 1 then begin k := R[i,j];R[i,j]:= R[10,j];R[10,j]:=k;end;writeln;for i:=1 to 10 do beginfor j:=1 to 10 do beginwrite(R[i,j]:3);end;writeln;end;end.

 0   

Екатерина , ответ добавлен 22.03.2018 в 16:22

Const     N = 10; M = 10;

var    arr: array[1..N,1..M] of byte;   
i,j,a,b,buff: byte;

begin   
for i:=1 to N do begin       
for j:=1 to M do begin           
read(arr[i,j]);       
end;   
end;

 for j:=1 to M do begin       
buff := arr[1,j];       
arr[1,j] := arr[10,j];       
arr[10,j] := buff;   
end;   

writeln('==============');   

for i:=1 to N do begin       
for j:=1 to M do           
write(arr[i,j]:3);       
writeln;   
end;
end.

 0