Найти номер последней пары соседних элементов массива с разными знаками

@Oxygenos · Регистрация: 10.06.2015

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

Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти:
− сумму отрицательных элементов;
− число тех элементов массива, значения которых положительны и не превосходят заданного числа А.
− найти номер последней пары соседних элементов с разными знаками.

@kot96 · 10.06.2015, 21:31

3ье не понял(

Pascal

program ex;
type vector=array[1..10]of integer;
var b:vector;
    i,s,a,k:integer;
begin
write('введите число А: ');readln(a);
s:=0;
for i:=1 to 10 do
begin
write('очередной элемент: ');
readln(b[i]);
if(b[i]<0) then s:=s+b[i];
if(b[i]>=0)and(b[i]<a) then k:=k+1;
end;
write('массив: ');
for i:=1 to 10 do
write(b[i],' ');
writeln();
writeln('сумма отрицательных элементов: ',s);
writeln('количество элементов которые не превосходят А и положительны: ',k);
end.

@Cyborg Drone · 15.06.2015, 04:15

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

Pascal

13	if(b[i]>=0)and(b[i]<a) then k:=k+1;

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

значения которых положительны и не превосходят заданного числа А

Ноль не является ни положительным, ни отрицательным числом. А "не превосходит" означает "меньше или равно". Правильно будет

Pascal

13	if(b[i]>0)and(b[i]<=a) then k:=k+1;

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

найти номер последней пары соседних элементов с разными знаками

Pascal

k := 0;
for i := 9 downto 1 do
if (a[i]<0)and(a[i+1]>0)or(a[i]>0)and(a[i+1]<0) then
begin
k := i;
break
end;
if k>0 
then writeln('Номер последней пары соседних элементов с разными знаками: ', k)
else writeln('Массив не содержит элементов с разными знаками')
end.

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

Не по теме:

kot96, вот попробовал написать неформатированный код, чтобы фрагмент кода был в Вашем стиле... Пойду руки, что ли, помою, а то такое ощущение, что какую-то бяку написал... Не разбери поймёшь, что где, того гляди, перепутаешь что-нибудь.

@Puporev · 15.06.2015, 08:19

Вместо этого

Pascal

1	if (a[i]<0)and(a[i+1]>0)or(a[i]>0)and(a[i+1]<0)

достаточно

Pascal

1	if a[i]*a[i+1]<0

@Oxygenos · 15.06.2015, 18:58 **[ТС]**

Что за ошибка?
Нет индексного свойства по умолчанию для типа integer

@Puporev · 15.06.2015, 19:12

Pascal

k := 0;
for i := 1 to 29 do
if a[i]*a[i+1]<0 then
 begin
  k := 1;
  break
 end;
if k=1 then...

@Oxygenos · 15.06.2015, 19:24 **[ТС]**

А что после?

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

if k=1 then...

@Puporev · 15.06.2015, 19:26

Ну так написано же

Pascal

k := 0;
for i := 1 to 29 do
if a[i]*a[i+1]<0 then
 begin
  k := i;
  break
 end;
if k>0
then writeln('Номер последней пары соседних элементов с разными знаками: ', k)
else writeln('Массив не содержит элементов с разными знаками')

@Oxygenos · 15.06.2015, 19:28 **[ТС]**

Ну тогда, та же ошибка

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

Нет индексного свойства по умолчанию для типа integer

@Puporev · 15.06.2015, 19:29

Oxygenos, Ты код своей программы выложи текстом, а картину засунь в одно место...

@Oxygenos · 15.06.2015, 19:31 **[ТС]**

Pascal

program ex;
var b:array[1..30]of integer;
    i,s,a,k:integer;
begin
write('введите число А: ');readln(a);
s:=0;
for i:=1 to 30 do
begin
write('очередной элемент: ');
readln(b[i]);
if(b[i]<0) then s:=s+b[i];
if(b[i]>0)and(b[i]<=a) then k:=k+1;
end;
write('массив: ');
for i:=1 to 30 do
write(b[i],' ');
writeln();
writeln('сумма отрицательных элементов: ',s);
writeln('количество элементов которые не превосходят А и положительны: ',k);
k := 0;
for i := 1 to 29 do
if a[i]*a[i+1]<0 then
 begin
  k := 1;
  break
 end;
if k>0
then writeln('Номер последней пары соседних элементов с разными знаками: ', k)
else writeln('Массив не содержит элементов с разными знаками')
end.

@Puporev · 15.06.2015, 19:40

Программа неверная, нужно

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

номер последней пары

Pascal

program ex;
const n=30;
var b:array[1..n]of integer;
    i,s,a,k:integer;
begin
write('введите число А: ');
readln(a);
s:=0;
k:=0;
for i:=1 to n do
 begin
  write('очередной элемент: ');
  readln(b[i]);
  if(b[i]<0) then s:=s+b[i];
  if(b[i]>0)and(b[i]<=a)then k:=k+1;
 end;
writeln('массив: ');
for i:=1 to n do
write(b[i],' ');
writeln;
writeln('сумма отрицательных элементов: ',s);
writeln('количество элементов которые не превосходят А и положительны: ',k);
k := 0;
for i := 1 to n-1 do
if b[i]*b[i+1]<0 then k := i;
if k>0
then writeln('Номер последней пары соседних элементов с разными знаками: ', k)
else writeln('Массив не содержит элементов с разными знаками')
end.

@Cyborg Drone · 15.06.2015, 23:07

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

Вместо этого
if (a[i]<0)and(a[i+1]>0)or(a[i]>0)and(a[i+1]<0)
достаточно
if a[i]*a[i+1]<0

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

Заполнить его с клавиатуры

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

var b:array[1..n]of integer;

Ну и... Если я введу два соседних числа, допустим, -50 и 2147483647, фокуса с умножением будет недостаточно. В большинстве диалектов паскаля целочисленное переполнение ошибку не генерирует, и результат умножения будет вот такой:

(-50 * 2147483647) and $FFFFFFFF = 50

При сравнении такого казуса не возникнет.

@Oxygenos 0 / 0 / 0 Регистрация: 10.06.2015 Сообщений: 11
		1
	Найти номер последней пары соседних элементов массива с разными знаками 10.06.2015, 19:05. Показов 5382. Ответов 12 Метки нет (Все метки) Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти: − сумму отрицательных элементов; − число тех элементов массива, значения которых положительны и не превосходят заданного числа А. − найти номер последней пары соседних элементов с разными знаками. 0

@Oxygenos 0 / 0 / 0 Регистрация: 10.06.2015 Сообщений: 11
	15.06.2015, 18:58 [ТС]	5
	Что за ошибка? Нет индексного свойства по умолчанию для типа integer Миниатюры 0

@Oxygenos 0 / 0 / 0 Регистрация: 10.06.2015 Сообщений: 11
	15.06.2015, 19:24 [ТС]	7
	А что после? Сообщение от Puporev if k=1 then... 0

@Oxygenos 0 / 0 / 0 Регистрация: 10.06.2015 Сообщений: 11
	15.06.2015, 19:28 [ТС]	9
	Ну тогда, та же ошибка Сообщение от Oxygenos Нет индексного свойства по умолчанию для типа integer 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	15.06.2015, 19:29	10
	Oxygenos, Ты код своей программы выложи текстом, а картину засунь в одно место... 0

@Cyborg Drone Модератор 9655 / 4975 / 3265 Регистрация: 17.08.2012 Сообщений: 15,474
	15.06.2015, 23:07	13
	Сообщение от Puporev Вместо этого if (a[i]<0)and(a[i+1]>0)or(a[i]>0)and(a[i+1]<0) достаточно if a[i]a[i+1]<0 Сообщение от Oxygenos* Заполнить его с клавиатуры Сообщение от Puporev var b:array[1..n]of integer; Ну и... Если я введу два соседних числа, допустим, -50 и 2147483647, фокуса с умножением будет недостаточно. В большинстве диалектов паскаля целочисленное переполнение ошибку не генерирует, и результат умножения будет вот такой: (-50 * 2147483647) and $FFFFFFFF = 50 При сравнении такого казуса не возникнет. 0

Найти номер последней пары соседних элементов массива с разными знаками

Решение