написать программу сортировки массива по возрастанию из 10 случайных элементов. ПАСКАЛЬ
Answers & Comments
estengseant
Var a: array[0..9] of Integer; i,k,b,c: Integer; begin for i:=0 to 9 do begin a[i]:=Random(100); writeln(i+1,' число: ',a[i]); end; for i:=0 to 9 do begin for k:=0 to 9 do begin if a[i]<a[k] then begin b:=a[i]; c:=a[k]; a[i]:=c; a[k]:=b; k:=0; end; end; end; writeln('Числа по возрастанию:'); for i:=0 to 9 do writeln(i+1,' число: ',a[i]); begin end; end.
Answers & Comments
i,k,b,c: Integer;
begin
for i:=0 to 9 do
begin
a[i]:=Random(100);
writeln(i+1,' число: ',a[i]);
end;
for i:=0 to 9 do
begin
for k:=0 to 9 do
begin
if a[i]<a[k] then
begin
b:=a[i];
c:=a[k];
a[i]:=c;
a[k]:=b;
k:=0;
end;
end;
end;
writeln('Числа по возрастанию:');
for i:=0 to 9 do
writeln(i+1,' число: ',a[i]);
begin
end;
end.