Помогите пожалуйста) заполнить массив из 10 элементов случайными числами в интервале [0, 100] и подсчитать среднее значение всех элементов, которые <50

Спасибо огромное тебе) а можешь и на другие мои вопросы поч от

Помочь

vara: array[1..10] of integer;i, k: integer;s: real;beginfor i:=1 to 10 dobegina[i]:=random(101);writeln('a[', i, '] = ', a[i]);if a[i]<50 thenbegink:=k+1;s:=s+a[i];end;end;writeln('Элементов, меньших 50: ', k);writeln('Их сумма: ', s);s:=s/k;writeln('Среднее значение элементов, меньших 50: ', s:1:4);end.