Массивы.Прошу разобрать задачу.

[Virusyaga]

Найти сумму всех элементов массива целых чисел , удовлетворяющих условию : остаток от деления на 3 равен 2. Размерность массива 20. Заполнение массива осуществить случайными числами от 200 до 300.


Буду очень благодарен за помощь.

[VIK_aka_TOR]

randomize;
sum := 0;
for i:=1 to 20 do
 begin
   a[i] := random(101) + 200;
   if a[i] mod 3 = 2 then
     sum := sum + a[i]; 
 end;

[Virusyaga]

А можно ещё вот эту задачу посмотреть

Найти сумму элементов массива вещественных чисел, имеющих нечетные номера. Размерность массива 20. Заполнение массива осуществить случайными числами от -π до π.

[VIK_aka_TOR]

randomize;
sum := 0;
for i:=1 to 20 do
  begin
    mas[i] := 2 * pi * rand(); // для pi либо подключите математическую библиотеку, либо объявите ее как константу.
    if odd(i) then // odd возвращает true если i нечетное.
      sum := sum + mas[i];  
  end;
writeln(sum);

[Virusyaga]

Получить действительный массив A[1..7, 1..7], первая строка которой задается формулой a1j=2j+3, вторая строка задается формулой a2j=j+3/(2+j), а каждая следующая строка есть сумма двух предыдущих.