Pascal ABC. массивы

[lyulka]

1. ввести с клавиатуры массив из n элементов, найти среднее арифметическое всех элементов массива.
пример:
введите 5 чисел:
4 15 3 10 14
среднее арифметическое 9.200


2.Ввести с клавиатуры массив из n элементов, найти сумму четных элементов.
пример:
введите 5 чисел:
4 15 3 10 14
сумма четных элементов 28

[<- DelpHIFanat ->]

Это же очень лёгкие задачки! Не знаю, что можно придумать легче.

1.

Var
  Mas: Array[0..99] Of Integer;
  Sum: Integer;
  Sred: Real;
  i, N: Byte;

begin
  Write('Vvedi N: ');
  ReadLn(N);
  WriteLn('Vvedi massiv:');

  Sum:=0;
  Randomize;
  For i:=0 To N-1 Do
    Begin
      Write('Mas[', i+1, '] = ');
      ReadLn(Mas[i]);
      Sum:=Sum+Mas[i];
    End;

  Sred:=Sum/N;
  WriteLn;
  WriteLn('Srednee = ', Sred:6:8);

  WriteLn;
  WriteLn('Davi na ENTER!');
  ReadLn;
end.

2.

Var
  Mas: Array[0..99] Of Integer;
  Sum: Integer;
  i, N: Byte;

begin
  Write('Vvedi N: ');
  ReadLn(N);
  WriteLn('Vvedi massiv:');

  Sum:=0;
  Randomize;
  For i:=0 To N-1 Do
    Begin
      Write('Mas[', i+1, '] = ');
      ReadLn(Mas[i]);
      If Not(Odd(Mas[i])) Then
        Sum:=Sum+Mas[i];
    End;

  WriteLn;
  WriteLn('Summa = ', Sum);

  WriteLn;
  WriteLn('Davi na ENTER!');
  ReadLn;
end.