var
a:array of double;
i,n,j:integer;
procedure swap(var x,y: double);
var t: double;
begin
t := x;
x := y;
y := t
end;
begin
write('Кол-во чисел: '); readln(n);
setlength(a,n);
dec(n);
for i:=0 to n do
readln(a[i]);
writeln;
for i:=0 to n do
write(a[i]:6:2);
writeln;
for j:=0 to n-1 do
for i:=0 to N-j-1 do
if a[i] < a[i+1] then
swap(a[i],a[i+1]);
for i:=0 to n do
write(a[i]:6:2);
writeln;
end.
Если моё решение вам, пометьте его лучшим !
. Додати файли для конвертації, вибравши кнопку Додати файли та вибравши у вікні, що відкрилося, потрібні файли.
2. Вибрати кнопку Далі.
3. Указати формат файлу, в який будете конвертувати, та за потреби - значення властивостей цього формату (мал. 4.8).
4. Вибрати кнопку Конвертувати.
5. Указати папку для запису конвертованого файлу.
Також існують веб-версії конверторів як аудіо, так і відео, наприклад, на сайтах http://audio.online-convert.com, http://benderconverter.com, https:// online-audio-converter.com, http://www.onlinevideoconverter.com, http://www. online-convert.com та ін.
порабола , втеви которой направлены вниз