команды: Создать, сохранить изменить, открыть, сохранить как..., свойство, выход, копировать вставить файл, смешать с файлом, удалить.
создать - записать звук
сохранить - сохранить запись
изменить - редактировать аудио дорожку
открыть - открыть файл
сохранить как - где именно сохранять и в каком формате
свойство - свойство программы типа Информации о программе
выход - выход из программы
копировать вставить файл - скопировать дорожку вставить дорожку
смешать с файлом - смешать аудио с другой дорожкой
удалить - удалить аудио дорожку.
Const
n = 10;
var
i, c: integer;
a, w: array[1..n] of integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i], ' ');
end;
writeln;
c := 0;
for i := 1 to n do
if a[i] > 0 then
begin
c := c + 1;
w[c] := a[i];
end;
writeln('Кол-во положительных элементов: ', c);
for i := 1 to n do
begin
if a[i] <= 0 then
begin
c := c + 1;
w[c] := a[i];
end;
end;
writeln('Результат:');
for i := 1 to c do
write(w[i], ' ');
end.
1) 1,5 Мбайта=1,5*2^23 бита =3*2^22 бита
2) 2048*1024=2^11*2^10=2^21 пикселей
3) 3*2^22 : 2^21 =3*2 =6 бит один пиксель
4) 2^6 =64 цвета в палитре
ответ 6 пикселей; 64 цвета
S:=0;
for i:=1 to 7 do begin
s:=s+sin(x);
x:=x+x;
end;
Остальную программу сам допишешь.
Правая кнопка мыши->"Свойства"