Вот задачка написана в среде Pascal.ABC.NET
В Youtube есть видео с названием <span>"Практична робота № 5. Комп’ютерне моделювання (друга частина в середовищі розробки Lazarus)". Практическое решение этой задачи
Может поможет
</span>
Ничего не видно. Сфоткай еще раз
#define N 20
int a[N];
void main (void)
{
int cnt;
for (cnt = 0; cnt < N; cnt++)
if (a[cnt] >30)
printf ("%d", a[cnt]);
}