С2_4

{Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 0 до 100 (баллы, полученные учениками за экзамен). Необходимо подсчитать и вывести на экран средний балл учеников, набравших более 20-и баллов. Гарантируется, что более 20 баллов набрал хотя бы 1 ученик. Предоставлены исходные данные, использовать дополнительные переменные запрещено.}

{Почему-то не работает.}

program c2_4;
uses crt;

const N=30;
var A:array[1..N] of integer;
i, x, y: integer;
s: real;

begin
clrscr;{for i:=1 to N do readln(A[i]);}
randomize;

for i:=1 to N do begin
A[i]:=Random(100);
end;

x:=0;
y:=0;

for i:=1 to N do begin
    if A[i] > 20 then begin
       x:=x+A[i];
       y:=y+1;
end; end;

s:=x/y;

writeln ('Sredniy ball sdavshix examen: ', s);
readln;
end.