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

[SvarovskI]

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

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

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

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

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

 

[Vladimir_S]

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

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

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

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

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

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

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

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

И что?