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])
Насчет первого. Мне непонятна формулировка "отсортировать по последней цифре"
6. 102
Логическое «И» истинно тогда, когда истинны оба высказывания. Запишем выражение в виде
(Число чётное) И (Число кратно 3).
Значит, наименьшее трёхзначное число, для которого высказывание будет истинным — 102.
7. 98
Логическое «И» истинно тогда, когда истинны оба высказывания. Запишем выражение в виде
(первая цифра нечётная) И (число не делится на 3).
Значит, наибольшее число, для которого высказывание будет истинным — 98.
8. 6
Логическое «И» истинно только тогда, когда истинны оба высказывания. Запишем выражение в виде
(X >= 6) И (X < 7)
Значит, число Х, для которого высказывание будет истинным — 6
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])
Насчет первого. Мне непонятна формулировка "отсортировать по последней цифре"