дан массив из n элементов(Xi). Найти и напечатать 1. элементов массива меньше 30
2. сумму элементов массива, которые больше 12

ладно ответ будет в виде блок-схемы?

Ответ уже дан. С чего это я буду делать двойную работу из-за Вашего ляпа?

Более того, я Вам скажу по секрету: тут очень не любят заданий с рисованием, так что шанс получить картинку невысок.

Это потому, что большинство отвечающих на вопросы - люди взрослые. Мы набираем ответы на компьютере, а рисовать на компьютере блок-схемы - долго и нудно. А на листиках от руки с последующим фотографированием телефоном - это делают Ваши ровесники.

Но тех школьников, кто действительно разбирается в программировании, тут немного.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 Println('Элементов, меньших 30:', a.Where(t -> t < 30).Count);

 Println('Сумма элементов, больших 12:', a.Where(t -> t > 12).Sum);

end.

n= 153 -14 -47 6 -28 -41 -24 -11 36 41 35 13 3 48 16Элементов, меньших 30: 11 Сумма элементов, больших 12: 189