Паскаль, помогите пожалуйста!
 

Решите пожалуйста 2 задачки,если не трудно!!!

!)Даны две последовательности целых чисел а1,а2,..,а8 и b1.b2,..,b8.
Найти кол-во целых чисел в первойиз них и кол-во нечетных во второй.

2)Напишите программу вычисления выраждения y=(tg(x)+sin(x))*e^cos(x) при х=3,7.
РезультатВывести в формате 5:2.

ЗАранее огромнейшее спасибо!!!

В первой количество целых чисел - 8 (по определению).

n:=0;
FOR i:=1 TO 8 DO
IF (b[i] mod 2) = 1 THEN INC(n);
Writeln(n);
Readln;

Раздел описания переменных и присвоения значений элементам массивов делайте сами.


y:=(Sin(x)/Cos(x)+Sin(x))*Exp(Cos(x));

И что?