Написать программу в Делфи.Массивы.

[Rinka1]

В массиве с(с1,с2,...,сn)найти номера элементов меньших среднего арифметического элементов того же массива.

[Mad_Cat]

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var c:array[1..100] of real;
  i:integer;
  n:integer;
begin
  readln(n);
  i:=1;
  c[100]:=0;
while i<=n do begin
  readln(c[i]);
  c[100]:=c[100]+c[i];
  inc(i);
end;
  c[100]:=c[100]/n;
  i:=1;
while i<=n do begin
  if c[i]<c[100] then writeln(i);
  inc(i);
end;
  readln;
end.