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

@Bangross · Регистрация: 10.09.2016

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

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

@bormant · 18.10.2016, 20:38

Pascal

  k:=0; p:=1;
  for i:=1 to n do begin
    if a[i]<x then Inc(k);
    if Odd(i) and (a[i]<0) then p:=p*a[i,j];
  end;
  WriteLn(k,' ',p);

Добавлено через 2 минуты
или

Pascal

  for i:=1 to n do if a[i]<x then Inc(k);
  i:=1;
  while i<=n do begin
    if a[i]<0 then p:=p*a[i,j];
    Inc(i,2);
  end;

@Bangross · 30.10.2016, 14:11 **[ТС]**

выдает ошибку арифметическое переполнение как исправить?

Pascal

var
    i,x,pr,n,m:integer;
    a:array [1..100] 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;
        if (a[i]<0) and (i mod 2 <> 0) then 
pr:=pr*a[i];
        end;
writeln(m,' chisel men"shix ',x,'Proizved otr u na nechet mes = ',pr);
end.

ФедосеевПавел · 30.10.2016, 14:17

Скорее всего - никак. Т.к. произведение 10 чисел превосходящих по абсолютному значению 10 превысит ёмкость типа integer. Но вы можете взять тип real и вычислять. До переполнения real гораздо дальше

@Bangross · 30.10.2016, 14:35 **[ТС]**

Можно посмотреть как будет выглядеть программа что бы она работала

ФедосеевПавел · 30.10.2016, 14:51

Не знаю - у родителей спросите.

Добавлено через 2 минуты
Замените строки

Pascal

var
  i,n,m:integer;
  a:array [1..100] of real;
  X, pr: real;

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

Решение

Решение

@Bangross 0 / 0 / 0 Регистрация: 10.09.2016 Сообщений: 28
		1
	Количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах. 18.10.2016, 14:49. Показов 2417. Ответов 5 Метки нет (Все метки) Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах. 0

ФедосеевПавел Модератор 8340 / 4234 / 1605 Регистрация: 01.02.2015 Сообщений: 13,185 Записей в блоге: 5
	30.10.2016, 14:17	4
	Скорее всего - никак. Т.к. произведение 10 чисел превосходящих по абсолютному значению 10 превысит ёмкость типа integer. Но вы можете взять тип real и вычислять. До переполнения real гораздо дальше 1

@Bangross 0 / 0 / 0 Регистрация: 10.09.2016 Сообщений: 28
	30.10.2016, 14:35 [ТС]	5
	Можно посмотреть как будет выглядеть программа что бы она работала 0

Опции темы