4096 мбайт=? бит (с решением) 512гб=? бит (с решением) заранее ^_^

4096*1024*1024*8=3435973868 бит 512*1024*1024*1024*8=35184372088832 бит

В  общем, вот вам программа на   console aplication: var    n,t,i,a: integer; begin      writeln('vvedite kol-vo studentov');       readln(n);       writeln('vvedite kol-vo vremeni(sek)');       readln(t);       a: =1;   for i: =1 to t do      begin            a: =a+1;         if (a=n) then          begin                a: =0;           end;         if i=t then          begin                writeln('cherez ', (t), ' sek bloha bydet na ', (a), ' studente'); end;       end;           readln; end.  всё работает, проверял.

var

  a: array [1..12] of integer;   //массив, состоящий из 12 целых чисел

  i: integer;

 

begin

  for i: = 1 to 12 do   //вводим элементы массива

  begin

    writeln('введите а[', i, ']');

    readln(a[i]);

  end;

  write('исходный массив:   ');

  for i: = 1 to 12 do   {распечатываем исходный массив и заменяем все положительные четные элементы на 5}

  begin

    write(a[i], '   ');

    if (a[i] > 0) and (a[i] mod 2 = 0) then

      a[i]: = 5;

  end;

  writeln;

  write('измененный массив:   ');

  for i: = 1 to 12 do   //распечатываем измененный массив

    write(a[i], '   ');

  writeln;   {переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end. 

если все правильно, отметь решение как лучшее)