Интересные моменты 2

type
  TIntArray=array of integer;

var 
  a,b:array of integer;

procedure RandomFillArray(var Arr:TIntArray);
  var i:integer;
begin
  for i:=0 to high(Arr) do
    arr[i] := random(200) - 100;
end;

function GetAvg(var Arr:TIntArray):double;
  var i,n:integer;
begin
  result := 0;
  n:=0;  
  for i:=0 to High(Arr) do
  begin
    if Arr[i]>0 then
    begin
      n:=n+1;
      result := result + arr[i];
    end;
  end;
  if n<>0 then
    result := result / n;
end;

SetLength(A,8);
SetLength(B,9);

RandomFillArray(A);
RandomFillArray(B);

memo1.lines.add(formatFloat('0.000', getAvg(A));
memo1.lines.add(formatFloat('0.000', getAvg(B));

m:=n;                   //запомним число
s:=0;                    //сумма пока 0
while m>0 do        //пока число больше 0
begin
  s:=s+m mod 10; //отделяем и суммируем последнюю цифру
  m:=m div 10;     //сокращаем число в 10 раз
end;

function sum(n:integer):integer;
var m,s:integer;
begin
  m:=n;//запомним число
  s:=0;//сумма пока 0
  while m>0 do//пока число больше 0
  begin
    s:=s+m mod 10;//отделяем и суммируем последнюю цифру
    m:=m div 10;//сокращаем число в 10 раз
  end;
  sum:=s;
end;
var n,k:integer;
begin
  k:=0;
  for n:=1 to 10000 do
  begin
    if(sum(n)+sum(n+1)) mod 7=0 then
    begin
      k:=1;
      write(n,' ');
    end;
  end;
  if k=0 then write('Чисел, соответствующих условию нет')
end.