Вычисли сумму чисел в MS Excel.
1. 202; 48; 1095; 40,2
2. 202; 48; 1095; 40,2; 79,9

Sub Calculate()
Dim coll As Collection
Dim i As Integer
Dim sum As Double
Dim negative As Integer
Dim composition As Integer
negative = 0
composition = 1
Set coll = New Collection
sum = 0
n = CInt(InputBox("Введите количество чисел", "Ввод", "", 2000, 2000))
For i = 1 To n
elmnt = CInt(InputBox(i & " число", "Ввод", "", 2000, 2000))
coll.Add elmnt
sum = sum + elmnt
Next i

For i = 1 To coll.Count
If (coll.Item(i) < 0) Then
negative = negative + 1
End If
If (coll.Item(i) Mod 2 = 1) Then
composition = composition * coll.Item(i)
End If
Next i
MsgBox "Количество отрицательных = " & negative & vbCrLf & "Произведение нечетных = " & composition & vbCrLf, vbOKOnly, "Результаты"
End Sub

Язык программирования какой?
Ладно, напишу словами, надеюсь вы код оформите.
пользователь вводит число, если оно делится без остачи на 2 - выводим, что оно чётное, если нет, то выводим что оно не чётное.
Функция деления по модулю на С-подобных языках "%", на других "mod".
Примеры:
С++
#include <iostream>
using namespace std;

int main()
{
     int n;
     cin >> n;
     if (n%2==0) cout << "This number is even";
     else cout << "It is not even number";
     cin.get();
     cin.get();
     return 0;
}

Pascal

program example;

   var n : integer;

begin

   readln(n);

   if n mod 2 = 0 then write('Number is even') else write ('It is not even number');

   realdn

end.