Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти: - Удвоенную сумму положительных элементов; - Вывести значения тех элементов, которые меньше заданного числа А кратны 3.

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] > 0 then k:=k+m[i]; / / проверяем, если число положительное, то добавляем его к сумме

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

writeln;

for i:=1 to n do

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

end.