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

Найти:

-Удвоенную сумму положительных элементов;

-Вывести значения тех элементов, которые меньше заданного числа А кратны 3.

Program PR_1; var b:array [1 ... 10] of integer; i, sum, A: integer; begin for i:=1 to 10 do readln (b[i]) ; sum:=0; for i:=1 to 10 do if b[i] mod 2=0 then sum:=sum+b[i]; sum:=2*sum; writeln ('удвоенная сумма равна', sum) ; writeln ('введите число') ; readln (A) ; for i:=1 to 10 do begin if (b[i]>A) and (b[i] mod 3=0) then writeln (b[i]) ; end.