Решить задачи с помощью Паскаля:
1. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре.
2. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину по возрастанию, а вторую- по убыванию. Здесь решать лучше методом выбора.

2) Сортирую не методом выбора, а пузырьковым методом, т.к. мне неизвестна формулировка "метод выбора"program z1;varmas:array[1..10] of Integer;m,n,temp:integer;beginrandomize;for i:=1 to 10 do beginmas[i]:=random(100);end;for i:=1 to 4 do if mas[i]>mas[i+1] then begintemp:=mas[i+1];mas[i+1]:=mas[i];mas[i]:=temp;end;for i:=6 to 9 do if mas[i]<mas[i+1] then begintemp:=mas[i+1];mas[i+1]:=mas[i];mas[i]:=temp;end;end.Если нужен еще и вывод на экран - то дописываете перед end. следующее: for i:=1 to 10 do writeln(mas[i])Насчет первого. Мне непонятна формулировка "отсортировать по последней цифре"

var i,j:integer;mas:array [1..10] of integer;beginrandomize;for i:= 1 to 10 do mas[i]:=random(101);for j:=1 to 10-1 dofor i:=1 to 10-j doif mas[i] mod 10 > mas[i+1] mod 10 thenswap(mas[i],mas[i+1]);for i:=1 to 10 dowriteln(mas[i]);end.2)var a:array[1..10] of Integer; i,j:Integer; begin randomize;for i:=1 to 10 do a[ i]:=random(101); for i:=1 to 4 do for j:=i+1 to 5 do if a[ i] > a[ j] then swap(a[i],a[j]); for i:=5 to 9 do for j:=i+1 to 10 do if a[ i] < a[ j] thenswap(a[i],a[j]);; for i:=1 to 10 do write(a[ i],' '); end.