Решить задачи с помощью Паскаля: 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]

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.