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