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.
Объяснение: