Дан массив из 15 чисел заполненный случайными числами из интервала [-20; 20]. определить , что больше среднее арифметическое элементов стоящих на четных местах или среднее арифметическое положительных элементов массива

//Pascal ABC.NET v3.1 сборка 1172

Var
 ar:array[1..15] of integer;
 i,k1,k2:integer;
 r1,r2:real;
begin
 randomize;
 writeln('Array:');
 for i:=1 to 15 do
  begin
   ar[i]:=random(-20,20);
   write(ar[i]:4);
   if i mod 2=0 then
    begin
     inc(k1);
     r1:=r1+ar[i];
    end;
   if ar[i]>0 then
    begin
     inc(k2);
     r2:=r2+k2;
    end;
  end;
 r1:=r1/k1;
 r2:=r2/k2;
 writeln;
 if r1>r2 then writeln('Среднее арифметическое элементов стоящих на четных местах');
 if r1<r2 then writeln('Cреднее арифметическое положительных элементов массива');
 if r1=r2 then writeln('Равно');
end.
 

Слово «мама» — особое слово, оно рождается вместе с нами.в языке любого народа есть это слово.место матери в нашей жизни особое.материнская любовь окрыляет, придает силы, вдохновляет на подвиг.слово «мама» становится равнозначным слову «жизнь». сколько художников, композиторов, поэтов создали замечательные произведения о маме! к сожалению, мы слишком поздно понимаем, что забыли сказать много хороших и добрых слов своей маме. чтобы этого не произошло, нужно дарить им радость каждый день и час. ведь дети – лучший подарок для них.

Что мы знаем о войне немного  по рассказам бабушек и мам  знаем, что надежда и тревога  об руку ходили по домам  слухи зависали  как знамена  дымом застилался горизонт  многоверстный и многоименный  жаждал крови ненасытный фронт  а из тыла за волной волна  шла латать верховные промашкивсасывала мальчиков война   и выплевывала мертвые бумажкикаждый шаг   к победе ли к бедесводки измеряли расстояньем  даже самый распобедный день  был комуто вечным расставаньемгоды возвращающий экраночевидцев честные романывсе равно останутся обманомссадины не заменяют рантолько изредка за толщей дней  вдруг всплеснёт сирены голос лютыйзамирая криками детей  и застынет сердце на минуту