В массиве а1,а2,а3…а10 заменить на 5 все элементы, равные и большие среднего арифметического, и на 0 – меньшие среднего арифметического всех элементов массива. Вывести на экран полученный массив.

ConstK = 10;VarA:array[1..K] of integer;i:integer;Sr:real;BeginWrite('Исходный массив: ');For i:= 1 to K do   Begin   A[i]:=random(21)-10;   Write(A[i],' ');   Sr:=Sr+A[i];   End;Sr:=Sr/K;WriteLn;WriteLn('Среднее арифметическое: ',Sr);Write('Переработаный массив: ');For i:= 1 to K do    Begin    if A[i]<Sr then A[i]:=0    else A[i]:=5;    Write(A[i],' ');    End;End.