Question

ПОЖАЛУЙСТА , ОБЪЯСНИТЕ КАК РАБОТАЕТ ЭТА ПРОГРАММА НА ПАСКАЛЬ

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.

Answer 1

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

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