//Pascal
//Массив заполняется случайными числами от -10 до 10
var
A: array[1..10] of integer;
i, Count: byte;
ArithMean: real;
begin
randomize;
for i := 1 to 10 do
begin
A[i] := random(21)-10;
if ((A[i] < 0) and (A[i] mod 2 = 0)) then
begin
ArithMean := ArithMean + A[i];
Count := Count + 1;
end;
write(A[i],' ');
end;
writeln;
writeln('Среднее арифметическое = ',(ArithMean/Count):0:2);
readln;
end.
