Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах

@Plusik · Регистрация: 06.11.2012

Студворк — интернет-сервис помощи студентам

Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.

@domovou2.0 · 06.11.2012, 22:05

Pascal

var
    i,x,pr,n,m:integer;
    a:array [1..1000] of integer;
begin
write('N= ');readln(n);
m:=0;pr:=1;
write('X= ');readln(x);
for i:=1 to n do
        begin
        a[i]:=random(51)-25;
        write(a[i]:3);
        if a[i]<x then inc(m);
        if (a[i]<0) and (i mod 2 <> 0) then pr:=pr*a[i];
        end;
writeln(#13,m,' chisel men"shix ',x,#13,'Proizved otr u na nechet mes = ',pr);
end.

@Plusik · 06.11.2012, 22:34 **[ТС]**

Спасибо большое!!

@Plusik 0 / 0 / 0 Регистрация: 06.11.2012 Сообщений: 5
		1
	Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах 06.11.2012, 20:14. Показов 6443. Ответов 2 Метки нет (Все метки) Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах. 0

@Plusik 0 / 0 / 0 Регистрация: 06.11.2012 Сообщений: 5
	06.11.2012, 22:34 [ТС]	3
	Спасибо большое!! 0

Опции темы

Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах

Решение