Нужна помощь с задачами по массивам.
1)Вы создаете массив из 100 элементов, содержащий 100 чисел (вводится случайные числа). Вывести массив, содержащий только положительные четные числа из этого диапазона.

2)Даны целые числа a1, a2, … a50. (массив заполняется случайными числами). Найти сумму тех элементов массива, которые кратны 3.

Спааасибоо

Рад был помочь. :)

1)var  massive :  array [1..100] of integer; i : integer;begin    // рандомизируем сид    randomize();   for i := 1 to 100 do begin    // заполняем массив случайными числами от -100 до 100    massive[i] :=  random(201)-100 ;    // выводим число, если оно больше нуля и кратно двум.   if ((massive[i] > 0) and (massive[i]  mod 2 = 0))      then write(massive[i]+' ');   end; end.2)var  a :  array [1..50] of integer; i ,summ: integer; begin    // рандомизируем сид    randomize();    // инициализируем переменную суммы    summ := 0;   for i := 1 to 50 do begin     // заполняем массив случайными числами от -100 до 100    a[i] := random(201)-100 ;     // суммируем если кратно трем     if a[i]  mod 3 = 0    then begin summ := summ + 1;  write(a[i] + ' '); end;   end;  // выводим результат   writeln();   writeln('Сумма чисел кратных трем = ' + summ); end.