Найти кол-во целых чисел в первой последовательности и кол-во нечетных во второй.

[DjDeniels-61]

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

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

[__STDC__]

кол-во ЧЕТНЫХ или ЦЕЛЫХ в первой? Если четных, то так..

var
	a,b:array[1..8] of integer;
	i,an,bn:byte;
begin
	randomize;
	for i:=1 to 8 do begin
		a[i] := random(9)+1;
		b[i] := random(9)+1;
		if (a[i] mod 2 = 0) then
			inc(an);
		if (b[i] mod 2 = 1) then
			inc(bn);
		writeln('a[',i,'] = ',a[i]:2,';   b[',i,'] = ',b[i]:2);
	end;
	writeln(an:4,bn:4);
	readln;
end.

вторая как-нибудь так..

function f(x:real):real;
begin
	f := (sin(x)/cos(x) + sin(x))*exp(cos(x));
end;

var
	x:real;
begin
	x := 3.7;
	writeln(f(x):5:2);
	readln;
end.

[profi]

__STDC__ извените "прогнал"

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

Ваши наработки (хоть какие-то), задача проще простого.

[__STDC__]

при делении на 2 не может быть остатка 2 или 3
при делении на любое число n максимальный остаток = n-1

[profi]

Сообщение от __STDC__

при делении на 2 не может быть остатка 2 или 3

Это да, но я подсказал для универсальности программы например если деление на другое число. Что бы если были подобные задачи вы новичку бац и ссылочку

[__STDC__]

Четность не проверяется делением на другое число =) Точнее это бессмысленно =)

[profi]

Сообщение от __STDC__

Четность не проверяется делением на другое число =) Точнее это бессмысленно =)

Кратность проверяется.

[__STDC__]

В данном задании это абсолютно не требуется...