на экзамене

[игорек фролоff]

Какое значение и порядковый номер имеет 1-ый из элементов массива а,который не превышает среднего арифметического его положительных элементов

[Serge_Bliznykov]

const N = 10; {размер массива, можно менять}
var a : array[1..N] of integer;
 i : integer;
 SumA, KolPologit : integer;
 Sred : real;
begin
  WriteLn('Введите элементы массива:');
  for i:=1 to N do Readln(a[i]);

  SumA := 0;
  KolPologit := 0;
  for i:=1 to N do 
     if a[i]>=0 then begin
        SumA := SumA + a[i];
        inc(KolPologit);
     end;
 
  if KolPologit=0 then 
      WriteLn('Решения нет - положительных элементов в массиве НЕТ!')
  else begin
    Sred := SumA / KolPologit;

    i:=1;
    while (i<=N) and (a[i]>Sred) do inc(i);

    if i<=N then
       WriteLn('Нашли: требуемый элемент с номером ',i,
          ' значение = ',a[i])
  end;
end.

p.s. массив целочисленный (т.к. в условии ничего не сказано.
Писал прямо здесь. Могут быть помарки/описки..
удачи на экзамене.