Дана одна из задач кибернетики. Определи, теоретической или практической является данная задача.

Оптимизация: решение во как при заданных условиях добиться такой организации работы каждого из элементов системы, такого взаимодействия между элементами и обмена с внешней средой, чтобы результаты функционирования этих систем были наилучшими, т. е. минимизировали затраты (время, сырье, энергию, человеческий труд и т. п.)

теоретическая задача
практическая задача

writeln('a[',i,']=',a[i]);

readln;

end.

смотря какая передача и каких данных, много чего придумать можно, мне кажется) телефон, радио, модем,рация. или просто- передатчик.

var a: array[1..100] of integer;

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

есличто непонятно - пиши в сообщения, растолкую