. Додати файли для конвертації, вибравши кнопку Додати файли та вибравши у вікні, що відкрилося, потрібні файли.
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 та ін.
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.
Если моё решение вам, пометьте его лучшим !
N = 0 S = 0
DIM A(20)
DATA 51,22,33,44,-25,76,-87
DATA 229,30,-81,882,43,-84,85
DATA 37,-88,99,10,32,-55
FOR i = 1 TO 20
READ A(i)
PRINT A(i);
N = N + 1
S = S + A(i)
NEXT i
Sr = S / N
PRINT
PRINT "N ="; N
PRINT "S ="; S
PRINT "Sr="; Sr
PRINT "-------------------------------------------"
FOR i = 1 TO 20
IF A(i) < 0 THEN
A(i) = Sr
END IF
PRINT A(i);
NEXT i