program JaMd;
const
N = 15;
var
NUMB, IND: array [1..N] of integer;
sum: real;
indLength: byte;

begin

sum := 0;
Writeln('Значения элементов в первом массиве:');

for var i := 1 to N do 
begin
  NUMB[i] := random (71) - 30;
  sum := sum + NUMB[i];
  Write(NUMB[i]:4);
end;

sum := sum / N;
Writeln;
Writeln('Среднее арифметическое всех элементов: ', sum);
Writeln('Индексы элементов, значение которых меньше среднего арифметического: ');
indLength := 0;

for var i := 1 to N do 
begin
  if (NUMB[i] < sum) then
    begin
    inc(indLength);
    IND[indLength] := i;
    end;
end;


for var i := 1 to indLength do begin
Write(IND[i]:3)
end;

Writeln;
Write('Количество таких элементов: ', indLength);


end.