//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const n = 10; var a:array[1..n] of integer; i,j:integer; begin // Заполним массив сл. числами for i:=1 to n do begin a[i]:=random(0,99); write(a[i]:4); end; writeln; //сортировка массива по убыванию последней цифры. for i := 1 to n-1 do for j := 1 to n-i do if (a[j] mod 10) > (a[j+1]mod 10) then swap(a[j],a[j+1]); writeln('Отсортированный массив : '); for i:=1 to n do write(a[i]:4); end.
В бутылке минеральная вода. Сейчас стакан не стоит между чаем и молоком. Поставить стакан между бутылкой с минеральной водой и кружкой нельзя, так как тогда он будет стоять между минеральной водой, а должен стоять рядом с чаем и молоком. Значит, стакан можно поставить между кружкой и чашкой. Стакан оказывается в середине, значит, в нем кофе. Молоко не может быть в кружке, так как по соседству с молоком будет кофе и минеральная вода, а рядом с молоком должен быть квас. Значит, молоко в чашке. Так как по соседству с молоком должен быть квас, то в кувшине квас. ответ: в бутылке минеральная вода, в кружке чай, в чашке молоко, в стакане кофе, в кувшине квас.
mukbidc
20.06.2021
Стакан перемещается на третье место, соответственно чашка на четвертое. Теперь известно, что кофе оказалось посередине, т.е. оно в стакане. Справа и слева чай и молоко. Т.е. в кружке либо чай, либо молоко и в чашке тоже. Но известно, что в бутылке минеральная вода, а по соседству с молоком - квас. В чашке - молоко, в кувшине квас, в кружке чай. кофе чай молоко квас минеральная вода бутылка - - - - + кружка + чашка + стакан + - - - - кувшин +
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Синформатикой заполнить массив из 10 элементов случайными числами в интервале [0..99] и отсортировать его по убыванию последней цифры.
const n = 10;
var a:array[1..n] of integer;
i,j:integer;
begin
// Заполним массив сл. числами
for i:=1 to n do begin
a[i]:=random(0,99); write(a[i]:4);
end;
writeln;
//сортировка массива по убыванию последней цифры.
for i := 1 to n-1 do
for j := 1 to n-i do
if (a[j] mod 10) > (a[j+1]mod 10) then
swap(a[j],a[j+1]);
writeln('Отсортированный массив : ');
for i:=1 to n do write(a[i]:4);
end.
Тестовое решение:
14 60 69 6 10 77 66 67 44 84
Отсортированный массив :
60 10 14 44 84 6 66 77 67 69