Дан массив целых чисел, состоящий из 10 частей. Заполнить его с

program zz1;

const n = 5;  // задаем количество элементов в массиве

var  i, k, a:integer; // задаем переменные целого типа

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

begin

write( введите данное число );

read(a);

for i:=1 to n do  // получаем n чисел с клавиатуры и записываем их в массив

read(m[i]);

for i:=1 to n do  

if m[i] gt; 0 then k:=k+m[i];  // проверяем, если число положительное, то прибавляем его к сумме

write( сумма положительных элементов массива = , k);

writeln;

for i:=1 to n do  

if (m[i] lt; a)and(m[i] mod 3 = 0) then write( , m[i]);  // проверяем, если число меньше данного и кратно трем, то выводим на экран

end.