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.