Рассчитайте время звучания мелодии в секундах, если известно, что объем файла, содержащий эту мелодию без сжатия и дополнительной информации равен v килобайт, звукозапись имеет к каналов звучания (дорожек – моно, стерео), частота дискретизации f килогерц, а количество уровней квантования кодируется u бит/сигнал. v= 4875, k = 4, f = 24, u = 13.

V=UFtK
t=V/(UFK)
F=24 кГц=24 000 Гц
V=4875 Кб * 1024=4992000 байт * 8=39936000 бит
t=39936000/(13*24000*4)=32 с
ответ: 32 с

V=UFtK
t=V/(UFK)
F=24 кГц=24 000 Гц
V=4875 Кб * 1024=4992000 байт * 8=39936000 бит
t=39936000/(13*24000*4)=32 с
ответ: 32 с

 const nx = 20;
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; 
i, j, k,n,r,t: integer; 
begin 
Writeln('Введите размер матрицы n');Read(n); 
 for i := 1 to n do begin   
for j := 1 to n do begin   
Read(k);x[i, j] := k;  end;end;   
Writeln('Исходный массив'); 
for i := 1 to n do begin   
for j := 1 to n do begin     
Write(x[i, j]:4);     
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;    
end;   
Writeln;  end; 
Writeln;Writeln('Одномерный массив'); 
for j := 1 to t do     
Write(z[j]:4); 
 end.

не совсем понятно, что вы хотите от программы.

я так понял, что вам нужно найти среднее значение всех элементов 3 списков, если это так, то обратите внимание вот на эти строки

my_list1 = a[i]

my_list2 = b[i]

my_list3 = c[i]

здесь сбита табуляция, однако я думаю, что вы явно прогоняете эти переменные по циклу и хотите работать с ними дальше в виде списка с переменными, в этом случае вы должны были объявить их до цикла и в самом цикле написать что то типа my_list1 += a[i], а получается, что весь цикл они просто переприсваиваются и по завершении просто равны последнему элементу a, b, c соответственно, уберите days = float(days) из цикла - занимает память и num никак не используется - ну это мелочи,

если бы вы написали что хотите от кода, я бы детальнее