Найти среднее арифметическое всех четных чисел

[Кристиш@]

Написать программу,которая вводит с клавиатуры n-чисел.Найти среднее арифметическое всех четных чисел.Найти сумму чисел больше 3,но меньше 9 и распечатать все числа больше 7
From Stilet: Пани, имейте совесть, называйте темы адекватно. Что о вас народ подумает?

[Пепел Феникса]

советую обратить внимание что раздел называется "Новички в программировании".
а не халявщики в программировании.

где наработки?(попытки решить задачу самостоятельно)

[Vikenty]

И что за название темы?

Запрещено создавать темы с названиями, которые не отражают смысл сообщения, пример - "Help!!!", "Памагите", "тону, спасите!", "а что это вы тут делаете?" и т.д.

[NioTo]

Кристиш@:

var
  NumbersCount, i: Integer;
  Numbers: Array of Integer;
  Sum1: Integer = 0;
  Sum2: Integer = 0;

begin
  Write('Введите число чисел, которое вы собираетесь ввести: ');
  ReadLn(NumbersCount);

  SetLength(Numbers, NumbersCount);

  WriteLn('Введите числа:');
  for i:= 1 to NumbersCount do begin
    ReadLn(Numbers[i]);

    if Numbers[i] mod 2 = 0 then
      Sum1 := Sum1 + Numbers[i];

    if (Numbers[i] > 3) and (Numbers[i] < 9) then
      Sum2 := Sum2 + Numbers[i];
  end;

  WriteLn('Сумма четных чисел: ', Sum1);
  WriteLn('Сумма чисел больших 3, но меньших 9: ', Sum2);
  WriteLn('Числа большие 7:');
  for i:= 1 to NumbersCount do
    if Numbers[i] > 7 then
      WriteLn(Numbers[i]);
end.