Найти среднее арифметическое элементов последовательности, превосходящих число 12. массив задан датчиком случайных чисел на интерваде [-44,35]. Размер массива - 21 элемент

Const N = 21;

Var

A:array[1 ... N] of integer;

i, k:integer;

S:real;

Begin

randomize;

S:=0;

k:=0;

Write ('Исходный массив: ') ;

For i: = 1 to N do

Begin

A[i]:=random (80) - 44;

Write (A[i],' ') ;

if A[i]<=12 then

Begin

S:=S+A[i];

k:=k+1

End;

End;

WriteLn;

WriteLn ('Sr = ', S/k)

End.