Задан массив а[1..5,1..6]. поменять в нем местами первый и последний столбец.

ответ:

объяснение:

r1=r2=15 ом

rob=r1+r2+rr=2*r1+rr

rr=rob-2*r1=54-2*15=24 ома

program vvv2; uses crt; const n=5; const m=6; var  a: array[1..n,1..m] of integer;   st: array[1..n] of integer; //массив для хранения столбца  i,j,nomer,min : integer; begin  randomize;   for i: =1 to n do      for j: =1 to m do          a[i,j]: = random(100); //заполняем массив  writeln;   writeln('начальный массив: ');   for i: =1 to n do      begin           for j: =1 to m do              write(a[i,j]: 5); //выводим массив          writeln;       end;   writeln('*** alphaues is ***');   for i: =1 to n do     begin      st[i]: =a[i,1];       a[i,1]: =a[i,m];       a[i,m]: = st[i];   end;   writeln;   writeln('результат: ');   for i: =1 to n do      begin           for j: =1 to m do              write(a[i,j]: 5); //выводим массив          writeln;       end; end.

var

a: array [1..5,1..6] of integer;

i,j,buf: integer;

begin

randomize;

for i: =1 to 5 do begin

for j: =1 to 6 do begin

a[i,j]: =random(8)+2;

write (a[i,j],' ');

end;

writeln;

end;

for i: =1 to 5 do begin

buf: =a[i,1];

a[i,1]: =a[i,6];

a[i,6]: =buf;

end;

writeln;  

for i: =1 to 5 do begin

for j: =1 to 6 do write (a[i,j],' ');

writeln;  

end;

readln;

end.