Задан массив а[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.

Program arrayminvalueswapfirst; var  numbers: array [1..10] of integer;   maxvalindex: integer; begin  write('исходный массив: ');   for var i: integer : = 1 to 10 do  begin    numbers[i] : = random(11);     write(numbers[i]);     if i < 10 then      write(', ');   end;   var minval: integer : = -1; // сюда записываем рекорд по значению  for var i: integer : = 1 to 10 do    if (numbers[i] > minval) then    begin      minval : = numbers[i];       maxvalindex : = i;     end;   writeln();   writeln('индекс максимального: ', maxvalindex);   var buf: integer : = numbers[1];   numbers[1] : = minval;   numbers[maxvalindex] : = buf;   write('результат      : ');   for var i: integer : = 1 to 10 do  begin    write(numbers[i]);     if i < 10 then      write(', ');   end; end.

відповідь: 13144746144626144328144727144744201445281446421447251446251443471446

4514472820144747144642201447261446461446451447311446302014464314474614462

6144328144727144744 - десятичный код

11100010111010111110001000101111110001011111010

111000101011000111111000100001101111100010001011000

0010111100010110100011111100010111000101011110001000

01100111100010111110011110001010110010111000101110001

011011110001000011110111100010001011100010

1110001010110111100010000110111100010111000101111

11000101110001011011110001000011100010111101

11100010111000101011111000100010111111000101111101

11100010101100011111100010000110111110001000101100 - двоичный код

0e2c2b0e2f2e0e2e1a0e2b1c0e2f1b0e2f2c140e2d1c0e2e2a0e2f190e2e190e2b2f0e2e

2d0e2f1c140e2f2f0e2e2a140e2f1a0e2e2e0e2e2d0e2f1f0e2e1e140e2e2b0e2f2e0e2e1

a0e2b1c0e2f1b0e2f2c - шестнадцатеричный код

пояснення: