С цикла с предусловием или постусловием написать программу нахождения среднего арифметического любых 5 чисел.

Задачка в один оператор)))

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  Writeln(ArrRandom(10,1,99).Println.Where(x->x mod 2=0).Average)
end.

Тестовое решение:
96 42 79 85 16 22 50 62 54 40
47.75

"Школьный подход" (видимо, короткому решению у нас не учат)

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
const
  n=10;
var
  a:array[1..n] of integer;
  i,k,s:integer;
begin
  s:=0;
  k:=0;
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i] mod 2 = 0 then begin
      s:=s+a[i];
      Inc(k)
      end
    end;
  Writeln;
  Writeln(s/k)
end.

Тестовое решение:
22 22 58 41 54 80 71 65 47 99
47.2

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var d:array[1..5] of integer:=(1,3,5,7,9);
  for var i:=1 to 5 do
    for var j:=1 to 5 do
      for var k:=1 to 5 do
        for var l:=1 to 5 do
          Write(d[i],d[j],d[k],d[l],' ')
end.

Результат выполнения программы:
1111 1113 1115 1117 1119 1131 1133 1135 1137 1139 1151 1153 1155 1157 1159 1171 1173 1175 1177 1179 1191 1193 1195 1197 1199 1311 1313 1315 1317 1319 1331 1333 1335 1337 1339 1351 1353 1355 1357 1359 1371 1373 1375 1377 1379 1391 1393 1395 1397 1399 1511 1513 1515 1517 1519 1531 1533 1535 1537 1539 1551 1553 1555 1557 1559 1571 1573 1575 1577 1579 1591 1593 1595 1597 1599 1711 1713 1715 1717 1719 1731 1733 1735 1737 1739 1751 1753 1755 1757 1759 1771 1773 1775 1777 1779 1791 1793 1795 1797 1799 1911 1913 1915 1917 1919 1931 1933 1935 1937 1939 1951 1953 1955 1957 1959 1971 1973 1975 1977 1979 1991 1993 1995 1997 1999 3111 3113 3115 3117 3119 3131 3133 3135 3137 3139 3151 3153 3155 3157 3159 3171 3173 3175 3177 3179 3191 3193 3195 3197 3199 3311 3313 3315 3317 3319 3331 3333 3335 3337 3339 3351 3353 3355 3357 3359 3371 3373 3375 3377 3379 3391 3393 3395 3397 3399 3511 3513 3515 3517 3519 3531 3533 3535 3537 3539 3551 3553 3555 3557 3559 3571 3573 3575 3577 3579 3591 3593 3595 3597 3599 3711 3713 3715 3717 3719 3731 3733 3735 3737 3739 3751 3753 3755 3757 3759 3771 3773 3775 3777 3779 3791 3793 3795 3797 3799 3911 3913 3915 3917 3919 3931 3933 3935 3937 3939 3951 3953 3955 3957 3959 3971 3973 3975 3977 3979 3991 3993 3995 3997 3999 5111 5113 5115 5117 5119 5131 5133 5135 5137 5139 5151 5153 5155 5157 5159 5171 5173 5175 5177 5179 5191 5193 5195 5197 5199 5311 5313 5315 5317 5319 5331 5333 5335 5337 5339 5351 5353 5355 5357 5359 5371 5373 5375 5377 5379 5391 5393 5395 5397 5399 5511 5513 5515 5517 5519 5531 5533 5535 5537 5539 5551 5553 5555 5557 5559 5571 5573 5575 5577 5579 5591 5593 5595 5597 5599 5711 5713 5715 5717 5719 5731 5733 5735 5737 5739 5751 5753 5755 5757 5759 5771 5773 5775 5777 5779 5791 5793 5795 5797 5799 5911 5913 5915 5917 5919 5931 5933 5935 5937 5939 5951 5953 5955 5957 5959 5971 5973 5975 5977 5979 5991 5993 5995 5997 5999 7111 7113 7115 7117 7119 7131 7133 7135 7137 7139 7151 7153 7155 7157 7159 7171 7173 7175 7177 7179 7191 7193 7195 7197 7199 7311 7313 7315 7317 7319 7331 7333 7335 7337 7339 7351 7353 7355 7357 7359 7371 7373 7375 7377 7379 7391 7393 7395 7397 7399 7511 7513 7515 7517 7519 7531 7533 7535 7537 7539 7551 7553 7555 7557 7559 7571 7573 7575 7577 7579 7591 7593 7595 7597 7599 7711 7713 7715 7717 7719 7731 7733 7735 7737 7739 7751 7753 7755 7757 7759 7771 7773 7775 7777 7779 7791 7793 7795 7797 7799 7911 7913 7915 7917 7919 7931 7933 7935 7937 7939 7951 7953 7955 7957 7959 7971 7973 7975 7977 7979 7991 7993 7995 7997 7999 9111 9113 9115 9117 9119 9131 9133 9135 9137 9139 9151 9153 9155 9157 9159 9171 9173 9175 9177 9179 9191 9193 9195 9197 9199 9311 9313 9315 9317 9319 9331 9333 9335 9337 9339 9351 9353 9355 9357 9359 9371 9373 9375 9377 9379 9391 9393 9395 9397 9399 9511 9513 9515 9517 9519 9531 9533 9535 9537 9539 9551 9553 9555 9557 9559 9571 9573 9575 9577 9579 9591 9593 9595 9597 9599 9711 9713 9715 9717 9719 9731 9733 9735 9737 9739 9751 9753 9755 9757 9759 9771 9773 9775 9777 9779 9791 9793 9795 9797 9799 9911 9913 9915 9917 9919 9931 9933 9935 9937 9939 9951 9953 9955 9957 9959 9971 9973 9975 9977 9979 9991 9993 9995 9997 9999