1. сгенерировать массив 8х14, вывести на экран. из чётных элементов этого массива, больших среднего арифметического нечётных элементов сформировать линейный массив, вывести его на экран. 2. сгенерировать массив 10х10, вывести на экран, найти сумму каждой строки. упорядочить строки в порядке возрастания суммы строки. результирующий массив вывести на экран.

1. var   a: array[0..7,0..13] of integer;   b: array[0..255] of integer;   i,j,k: byte;   s: integer;   sr: real; begin   randomize;   s: =0;   k: =0;   for i: =0 to 7 do   begin     for j: =0 to 13 do     begin       a[i,j]: =random(20);       write(a[i,j]: 4);       if a[i,j] mod 2< > 0         then         begin           s: =s+a[i,j];           k: =k+1;         end;     end;     writeln;   end;   sr: =s/k;   k: =0;   writeln;   for i: =0 to 7 do     for j: =0 to 13 do     if (a[i,j] mod 2=0) and (a[i,j]> sr)       then       begin         k: =k+1;         b[k]: =a[i,j];         write(b[k]: 4);       end; end.2.  var  a: array[0..9,0..9] of integer;   b: array[0..255,0..1] of integer;   i,j,k: byte;   s,ss,min: integer;   flag: boolean; begin  randomize;   s: =0;   k: =0;   for i: =0 to 9 do  begin    for j: =0 to 9 do    begin      a[i,j]: =random(20);       write(a[i,j]: 4);       b[i,0]: =a[i,j]+b[i,0];       b[i,1]: =i;     end;     writeln;   end;   writeln;   flag: =false;   min: =10*20+1;   for i: =0 to 9 do    begin    for j: =i to 9 do      if min> b[j,0]      then        begin        min: =b[j,0];         k: =j;         flag: =true;         end;     if flag      then      begin      s: =b[i,0]; //замена      ss: =b[i,1];       b[i,0]: =b[k,0];       b[i,1]: =b[k,1];       b[k,0]: =s;       b[k,1]: =ss;       flag: =false;       min: =10*20+1;       end;     end;   for i: =0 to 9 do    begin    writeln;     for j: =0 to 9 do      write(a[b[i,1],j]: 4);     end; end.

1.40*2=80 км

2.80+20=100 км

3.80+100=180 км