60Мб *1024*1024 = 62914560 байт
256Кбит = 32000 байт
31457280/32000 + 31457280/16000 = 983,04 + 1966,08 = 2949,12 сек ≈ 49 мин 9 сек
1,2, и всё остальное ёмкость
Данный список является магазинным
Program n1;
var i,sum,a,k: integer;
begin
sum:=0;
k:=0;
for i:=1 to 20 do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
write(sum/k);
end.