1.Оберіть формати файлів, у яких не використовується стиснення або використовується стиснення без втрати
midі
flac
wav
mov
mp3
2.Об'єкт мультимедіа не може містити
Аудіо
Електронні таблиці
Звук
Відео
Графічні зображення
Паролі
3.Оберіть формати файлів звукосинтезу
flac
mp3
mod
wav
midі
4.Оберіть формати файлів, у яких використовується стиснення із частковою втратою даних
flac
mov
midі
mp3
wav
5.wav, mid, flac, mp3, wma - мають розширення імен файлів
Зображення
Відео
Аудіо
Текстових даних
6.3gp, flv, avi, mpg, mov, swf, asf, mp4, wmv - розширення імен файлів
Аудіо
Зображення
Текстових даних
Відео
//Pascal
const m = 1000
var
arr: array[1..m] of integer;
n,i, j, k: integer;
begin
readln(n);
write ('Исходный массив: ');
for i := 1 to n do begin
readln(arr[i]);
end;
//сортировка методом пузырька
for i := 1 to n-1 do
for j := 1 to n-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to n do
write (arr[i]:4);
end.
Алгоритм сортировки на классическом языке программирования С
# define SWAP(A,B) {A=A^B;B=A^B;A=A^B;}
void bubblesort(int A[], int n)
{
int i, j;
for(i = n-1 ; i > 0 ; i--)
{ for(j = 0 ; j < i ; j++)
{
if( A[j] > A[j+1] ) SWAP(A[j],A[j+1]);
}
}
}
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969