Потому что музыка весит гораздо меньше, чем даже 3х минутное видео: у видео объем больше
Протокол передачи данных, TCP/IP
Var
a, b: array [1..3] of real;
r: real;
begin
writeln('Введите углы (A, B, C), затем - радиус');
readln(a[1], a[2], a[3], r);
b[1] := r * 2 * sin(a[1]);
b[2] := r * 2 * sin(a[2]);
b[3] := r * 2 * sin(a[3]);
writeln('a = ', b[1]);
writeln('b = ', b[2]);
writeln('c = ', b[3]);
end.
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=Arr(2,7,11,15,4,-2,6);
Writeln('Первое отрицательное под номером ',b.FindIndex(k->k<0)+1);
Writeln('Сумма положительных ',b.Where(k->k>0).Sum);
Writeln('Минимальное значение под номером ',b.IndexMin+1)
end.
<u>Результат</u>
Первое отрицательное под номером 6
Сумма положительных 45
Минимальное значение под номером 6