ПОЖАЛУЙСТА , ОБЪЯСНИТЕ КАК РАБОТАЕТ ЭТА ПРОГРАММА НА ПАСКАЛЬ const N=30; var A: array [1..N] of integer ; i, x, y:integer; s: real ; begin for i:=1 to N do readln (A [i]); x:=0;y:=0; for i:=1 to N do if a[i]>20 then begin inc(x); y:=y+a[i]; end; s:=y/x; writeln(s);end.

1. Создается массив из целых, массив статический на 30 элементов.
2. В цикле со счетчиком (for) заполняется массив с клавиатуры, вводятся 30 значений.
3. Еще раз в цикле просматриваются все элементы массива и сравниваются с 20. Если больше 20, то увеличивается значение переменной x на  1 и к значению перменной y прибавляют значение этого элемента массива.
4. После окончания цикла вычисляется выводится отношение s:=x/y.

Небольшое дополнение, если элементов массива больших 20 не будет, то возникнет переполнение из-за деления на 0