Доброе утро, , , начертить блок-схему по : задана одномерная числовая таблица из n элементов. расставить элементы в таблице в порядке возрастания их значений. буду . заранее

1)var a: array[1..3,1..3] of integer; b: array[1..3,1..3] of integer; c: array[1..3,1..3] of integer; i,j: integer; begin; writeln('a array: '); for i: =1 to 3 do begin; writeln;   for j: =1 to 3 do     begin;     a[i,j]: =random(-10,10);     write(a[i,j]: 4);     end; end; writeln; writeln('b array: '); for i: =1 to 3 do begin; writeln;   for j: =1 to 3 do     begin;     b[i,j]: =random(-10,10);     write(b[i,j]: 4);     end; end; writeln; writeln('c array: '); for i: =1 to 3 do begin; writeln;   for j: =1 to 3 do     begin;     c[i,j]: =b[i,j]-a[i,j];     write(c[i,j]: 4);     end; end; end.2)var a: array of array of real; i,j,n,m: integer; max: real; begin; randomize; max: =-2147483648; readln(n); readln(m); setlength(a,n+1); for i: =1 to n dosetlength(a[i],m+1); writeln('a array: '); for i: =1 to n do  begin;   writeln;     for j: =1 to m do    begin;     a[i,j]: =random(-10,10);     if max< a[i,j] then max: =a[i,j];     write(a[i,j]: 4);     end;   end; for i: =1 to n do  for j: =1 to m do  if a[i,j]< 0 then a[i,j]: =max; writeln; writeln('final array: '); for i: =1 to n do  begin;   writeln;     for j: =1 to m do    write(a[i,j]: 4);   end; end.   

1)var a: array[1..3,1..3] of integer; b: array[1..3,1..3] of integer; c: array[1..3,1..3] of integer; i,j: integer; begin; writeln('a array: '); for i: =1 to 3 do begin; writeln;   for j: =1 to 3 do     begin;     a[i,j]: =random(-10,10);     write(a[i,j]: 4);     end; end; writeln; writeln('b array: '); for i: =1 to 3 do begin; writeln;   for j: =1 to 3 do     begin;     b[i,j]: =random(-10,10);     write(b[i,j]: 4);     end; end; writeln; writeln('c array: '); for i: =1 to 3 do begin; writeln;   for j: =1 to 3 do     begin;     c[i,j]: =a[i,j]*b[i,j];     write(c[i,j]: 4);     end; end; end.2)var a: array of array of integer; i,j,k,n,u: integer; begin; randomize; readln(n); setlength(a,n+1); for i: =1 to n do setlength(a[i],n+1); writeln('a array: '); for i: =1 to n do   begin;   writeln;     for j: =1 to n do     begin;       a[i,j]: =random(-10,10);       write(a[i,j]: 4);     end;   end; for i: =1 to n do   begin;   for j: =1 to n do     u+=a[i,j];   if u< 0 then inc(k);   u: =0;   end; writeln; write('result: ',k); end.