Дано масив з 20 дійсних чисел, всі елементи якого різні. а) знайти середнє значення елементів масиву, що знаходяться на позиціях, кратних числу 4. б) знайти суму чисел, розташованих між мінімальним і максимальним значеннями. в) упорядкувати елементи, що знаходяться на парних позиціях за спаданням

язык программирования: c

если нужно на перевести то скажите

в общем,

Если было роздано 8100 МБайт, а скорость раздачи втрое меньше скорости скачивания (15/5=3), то скачано было 8100*3=24300 МБайт.
Определим величину видеопотока данных.
1920*1080*2*18=74649600 (Байт/с) = 74649600/2^20=71.19 (МБайт/с)
В этом выражении 2 Байта- это 16/8 бит глубины цвета.
Определим величину аудиопотока данных.
Для хранения отсчета при 4096 уровнях квантования требуется 12 бит (2^12=4096).
Упаковки нет, поэтому будет использовано целое число байт - 2.
Тогда аудиопоток составит 192000*2*48=18432000 (Байт/с)=18432000/2^20=17.58 (МБайт/с).
Суммарный поток 71.19+17.58=88.77 (Мбайт/с)
Тогда длительность видеоролика составит 24300/88.77 ≈ 273.7 (c)

Var
    J: Array[1..32,1..32] Of Integer;
    i, j, S: Integer;
Begin
//заводим массив
    For i:=1 to 32 do
        For j:=1 to 32 do
        begin
            Writeln("Введите J[",i,",",j,"]");
            Readln(J[i,j]);
        End;
//Сумма всех чисел
    S:=0;
    For i:=1 to 32 do
        For j:=1 to 32 do
        S:=S +J[i,j];
    Writeln("Сумма всех чисел = ",S);
S = 0;
//Минимальное четное число
    For i:=1 to 32 do
        For j:=1 to 32 do
        If (J[i,j] mod 2 = 0) And (J[i,j]<S) Then S:= J[i,j];

    Writeln("Минимальное четное число = ",S);
S:=0;
//кол-во отрицательных нечетных чисел
    For i:=1 to 32 do
        For j:=1 to 32 do
        If (J[i,j] mod 2 <> 0) And (J[i,j] <0)Then S:= S+1;
    Writeln("кол-во отрицательных нечетных чисел = ",S);
S:=0;
//сумма отрицательных нечетных чисел
    For i:=1 to 32 do
        For j:=1 to 32 do
        If (J[i,j] mod 2 <> 0) And (J[i,j] <0)Then S:= S+J[i,j];
    Writeln("сумма отрицательных нечетных чисел = ",S);
End;