Решить сор по информатике 6класс 1 чет.! (это не весь не знаю как весь закинуть)​

1) 640*480*16 = 4 915 200 бит = 614 400 байт = 600 Кбайт - объём кадра

2) 600*24 = 14400 Кбайт/с - битрейт видео

3) 10*40000 = 400 000 бит/с = 50 000 байт/с - битрейт аудио

4) 5*60*((14400*1024)+50000) = 4 438 680 000 байт = 4 233,05 Мбайт

Ответ: 4 233,05 Мбайт
Геннадий создает мультипликационный ролик, где каждый кадр -отдельно отрисованная картинка. Известно, что каждая картинка имеет разрешение :640*480 пикселей и цветовую палитру в 2^ 16=65536 цветов. Каждый пиксель кодируется с помощью минимально возможного и одинакового для всех пикселей количества бит. Картинки записываются одна за другой без разделителей и заголовков файла. Частота смены кадров в конечном ролике - 24 кадра/сек. В качестве звукового сопровождения выбран формат стерео с глубиной кодирования 10 бит и частотой дискретизации 40 кГц . Найдите размер мультфильма в Мбайтах, если известно, что его Длительность 5 минут. В качестве ответа укажите число-минимальное целое количество Мбайт достаточное для хранения такого файла.​

Var a:array[1..10] of integer;
  k,n,i:integer;
  min:INTEGER;
begin
  randomize; N:=10; k:=0 {кол-во отрицательных элементов};
  writeln ('исходный массив');
  for i:=1 to N do
  begin
   if random(2) =1 then a[i]:=random(100)
     else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
   write(a[i]:5);
  end;
  writeln;
  {поиск минимального положительного}
  if (k<>0) or (k<>N) then  {есть отрицательные или не все отрицательные}
  begin
    for i:=1 to N do
     if  (a[i]>0) and (a[i]<min) then  min:=a[i];
  {замена}
    for i:=1 to N do
     if  (a[i]<0)  then  a[i]:=min;
  end;
  writeln('Новый массив')
    for i:=1 to N do      write(a[i]:5);
end.