Дано: двовимірний масив дійсних чисел. визначнте: добуток елементів, розміщених у непарних стовпцях.

//Pascal ABC.NET v3.1 сборка 1172

Const
 n=3;

Var
 ma:array[1..n,1..n] of real;
 i,j:integer;
 r:real;
begin
 randomize;
 r:=1;
 writeln('Matrix:');
  for i:=1 to n do
   begin;
   writeln;
    for j:=1 to n do
     begin;
      ma[i,j]:=random(1,10);
      if j mod 2<>0 then r:=r*ma[i,j];
      write(ma[i,j]:4);
     end;
   end;
 writeln;
 writeln('Res=',r);
end.

Пример работы кода:
Matrix:
   5   3   3
   2   2   5
  10   2   4
Res=6000

В некотором царстве, в некотором государстве жила-была…

Нет! Так все сказки начинаются. А моя сказка начинается по-другому.

На далёком острове среди бушующего океана Информации раскинулось государство Технология. Царствовала там мудрая Информатика. И были у неё подданные: Микросхемы, Мониторы, Процессоры, Клавиатуры, Компьютерные Мыши и многие другие жители.

Захотела Информатика общаться с другими государствами и построила Интернет-порталы. Узнали о государстве Технология на близких островах и далёких землях. Царица Информатика была щедрой правительницей. Она приходила на всем, кто её об этом просил. Все радовались неоценимым подаркам Информатики.

Но один злой правитель захотел всё могущество и знание Информатики прибрать к своим рукам. Однако ему не удалось заполучить её знания, поэтому он решил причинить Информатике вред. И начал он создавать армию Вирусов. Вирусы были очень коварные. Под видом добрых намерений они пробирались в дома к Программам и портили их. Информатика и не догадывалась, какая угроза нависла над её жителями. Однажды она зашла к Windows XP, а он оказался испорченным и не узнал её. Информатика рассказала, кто она такая, и попросила вспомнить, кто его испортил. Windows вспомнил и сказал об этом Информатике.

Информатика созвала совет Старейшин и рассказала им о проблеме. Посовещавшись, они вместе начали создавать Антивирусы. Получилось целое войско: Dr. Web, Kaspersky, Avira, Panda, Nod32 и другие. Когда следующая партия Вирусов через Интернет, на них набросились Антивирусы и связали их. Подлые враги рассказали, кто их сделал. Злого правителя поймали, посадили в клетку.

Царица Информатика не закрыла Интернет, а только расставила на границах стражу от Вирусов.

Так и по сей день правит Информатика в своём государстве и делится своими знаниями с добрыми людьми 

Вычислительный эксперимент — метод изучения устройств или физических процессов с математического моделирования. Он предполагает, что вслед за построением математической модели проводится ее численное исследование, позволяющее «проиграть» поведение исследуемого объекта в различных условиях или в различных модификациях
Численное исследование модели дает возможность определять разнообразные характеристики процессов, оптимизировать конструкции или режимы функционирования проектируемых устройств. Более того, случается, что в ходе вычислительного эксперимента исследователь неожиданно открывает новые процессы и свойства, о которых ему ранее ничего не было известно.