Введите маску для выбора всех файлов, имя которых начинается с буквы z, а расширение заканчивается на букву a

Объяснение:

Вроде бы так можно лучший ответ если правильно

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.

t=t ожидание+t передачи

t ожидания= 1024*1024*8/2^20=8сек

t передачи=9мб*1024*1024*8/2^13=9216сек

t=9224 секунды