1)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin randomize; for i:=1 to n do mas[i]:=random(65); min:=mas[1]; for i:=1 to n do if mas[i] < min then begin min:=mas[i]; k:=i; end; for i:=1 to n do write(mas[i]:4); writeln(); writeln('minimalnoe=',min); writeln('index=',k); end. 2)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin randomize; for i:=1 to n do mas[i]:=random(65); for i:=1 to n do write(mas[i]:4); for i:=1 to n do if mas[i] mod 3 = 0 then mas[i]:=0; writeln(); for i:=1 to n do write(mas[i]:4); 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])
Насчет первого. Мне непонятна формулировка "отсортировать по последней цифре"
program test;
begin
writeln('1-1 2-2 3-3 4-4 5-5 (6-6) 7-7');
writeln(' 8-1 9- 2 10-3 11-4 12-5 (13-6) 14-7');
end.