по информатике вас. 8 класс. Это очень

Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 begin   var Size := ReadLnInteger('Размер массива =');   var A : array of Integer; SetLength(A, Size);   for var i := 0 to pred(Size) do     A[i] := ReadLnInteger('A[' + (i+1).ToString + '] =');   WriteLn('Введён массив A = ', A);   var count := 0; for var i := 0 to pred(Size) do if Not odd(A[i]) then count += 1;   WriteLn('В массиве чётных элементов: ', count);   var max := 0; for var i := 1 to pred(Size) do if A[max] < A[i] then max := i;   var k := ReadLnInteger('k = '); A[max] *= k;   WriteLn('Массив A = ', A); end.

Подробных требований нет, поэтому один из простых вариантов такой:
<FORM>
Число:
<input type="text" size="10" name=number>
<P>
<input type="button" value="Проверить" 
       onclick="if (number.value % 2)
         ans.value=number.value+'-нечетное';
         else ans.value=number.value+'-четное'"">
<input type="text" size="10" name=ans>
<P>
<input type="reset" value="Очистить">
</FORM>

Текст набрать в блокноте и сохранить с расширением html. Затем открыть в браузере.