Ответ учителя по предмету Информатика
const n=10;
var a: array [1..n] of integer;
j,k,i,p,f:integer;
begin
for i:=1 to n do
a[i]:=random(1,10);
writeln(a);
for j:=1 to n do
for i:=1 to n-j do
begin
if a[i]>a[i+1] then
begin
swap(a[i+1],a[i]);
end;
end;
writeln(a);
end.
Похожие вопросы от пользователей
при гидрировании 55гр бутаналя выход продукта реакции составил 95%. какова масса полученного продукта реакции
{7x + 3y = 1
{2x — 6y = -10