Pascal массивы

заполнить массив P[200] случайными целыми числами из интервала (-150; 150).

Вывести на экран числа кратные 3 и найти сумму положительных чисел.

Const

n = 200;

var

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

i, s: integer;

begin

Randomize;

Writeln ('Элементы массива, кратные трем:') ;

s : = 0;

for i : = 1 to n do

begin

a[i] : = Random (301) - 150;

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

if a[i]>0 then s:=s+a[i]

end;

Writeln;

Writeln ('Сумма положительных элементов равна ', s)

end.

Тестовое решение:

Элементы массива, кратные трем:

-144 27 - 15 135 129 - 114 33 66 - 15 135 - 3 105 - 129 - 6 - 60 21 - 108 - 78 - 123 93 - 51 - 60 - 120 27 129 - 33 - 30 - 66 - 39 6 51 141 - 75 - 30 48 - 90 87 - 39 18 - 45 144 - 120 75 - 111 6 72 - 42 114 - 27 120 - 144 - 120 96 135 - 24 - 9 141 - 93 111 15

Сумма положительных элементов равна 7980