По Паскалю. 11 класс 1. В том же массиве А первые 15 элементов упорядочить по…

1) program gt; var a: array[1… 100]of longint; n,i,l,k,,j: longint; beginrandomize; for i: =1 to 30 dobegina[i]: =random (80) -40; end; for i: =1 to 16 dobeginfor j: =1 to 16-i dobeginl: =a[j]; k: =a[j+1]; if (a[j]>a[j+1]) then begina[j]: =k; a[j+1]: =l; end; end; end; for i: =1 to 16 dobeginfor j: =16 to 30-i dobeginl: =a[j]; k: =a[j+1]; if (a[j]20) then k: =k+1; end; writeln (s,',k); end.