Объясните как работает эта программа на паскаль 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