Uses graphABC; const a=300; b=200; k=300; xmin=-3; xmax=3; var x, y, h:real; xe, ye,w:integer; begin w:=round ((xmax-xmin)*k); Line (a-300, b, a+w, b); Line (a, 0, a, 2*b); x:=xmin; end.
Var i,j:integer; mas:array [1..10] of integer; begin randomize; for i:= 1 to 10 do mas[i]:=random(101); for j:=1 to 10-1 do for i:=1 to 10-j do if mas[i] mod 10 > mas[i+1] mod 10 then swap(mas[i],mas[i+1]); for i:=1 to 10 do writeln(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] then swap(a[i],a[j]);; for i:=1 to 10 do write(a[ i],' '); end.
2) Сортирую не методом выбора, а пузырьковым методом, т.к. мне неизвестна формулировка "метод выбора" program z1; var mas:array[1..10] of Integer; m,n,temp:integer; begin randomize; for i:=1 to 10 do begin mas[i]:=random(100); end; for i:=1 to 4 do if mas[i]>mas[i+1] then begin temp:=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 begin temp:=mas[i+1]; mas[i+1]:=mas[i]; mas[i]:=temp; end; end.
Если нужен еще и вывод на экран - то дописываете перед end. следующее: for i:=1 to 10 do writeln(mas[i])
Насчет первого. Мне непонятна формулировка "отсортировать по последней цифре"
const a=300; b=200; k=300;
xmin=-3; xmax=3;
var x, y, h:real;
xe, ye,w:integer;
begin
w:=round ((xmax-xmin)*k);
Line (a-300, b, a+w, b);
Line (a, 0, a, 2*b);
x:=xmin;
end.