Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
5 / 5 / 4
Регистрация: 21.12.2014
Сообщений: 113
1

В векторе (одномерном массиве) найти: разность первого положительного и последнего отрицательного элемента

23.09.2016, 17:50. Просмотров 1423. Ответов 7
Метки нет (Все метки)


В заданном векторе (одномерном массиве) найти: разность первого положительного и
последнего отрицательного элемента
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.09.2016, 17:50
Ответы с готовыми решениями:

В произвольном массиве найти номер первого положительного и последнего отрицательного элемента и все элементы расположенные между ними
Подскажите условие для вывода на экран в массиве первый положительный элемент и последний...

Найти разность первого положительного и последнего отрицательного элементов массива
В заданном векторе (одномерном массиве) найти: разность первого положительного и последнего...

Найти величину и номер первого отрицательного и последнего положительного элементов в массиве
хелп с программой. Найти величину и номер первого отрицательного и последнего положительного...

Найти номер последнего отрицательного элемента в одномерном динамическом массиве
Найти номер последнего отрицательного элемента в одномерном динамическом массиве.

7
Эксперт Pascal/Delphi
6530 / 4398 / 4703
Регистрация: 05.06.2014
Сообщений: 21,615
23.09.2016, 19:52 2
Лучший ответ Сообщение было отмечено kolas1173 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
const
  n = 10;
 
var
  kn, kp, i: integer;
  a: array[1..n] of integer;
 
begin
  randomize;
  kp := 0;
  kn := 0;  
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:5);
  end;
  for i := 1 to n do
  begin
    if a[i] > 0 then 
    begin
      kp := i;
      break;
    end;
  end;  
  writeln;
  
  for i := n downto 1 do
    if a[i] < 0 then 
    begin
      kn := i;
      break;
    end;
  if (kp <> 0) and (kn <> 0)  then
    writeln(a[kp] - a[kn])
  else
    writeln('Вообще нет или положительных или отрицательных');
  
end.
1
5 / 5 / 4
Регистрация: 21.12.2014
Сообщений: 113
23.09.2016, 20:19  [ТС] 3
Можете пожалуйста объяснить как работает, по условию не много не понимаю.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5692 / 3407 / 2429
Регистрация: 22.11.2013
Сообщений: 9,557
Записей в блоге: 1
24.09.2016, 09:37 4
Лучший ответ Сообщение было отмечено kolas1173 как решение

Решение

Просматриваем слева направо до положительного, запоминаем индекс, обрываем цикл.
Просматриваем справа налево до отрицательного, запоминаем индекс, обрываем цикл.
Если индексы ненулевые, выводим разность соответствующих элементов, иначе сообщение об отсутствии подходящих.
1
Платежеспособный зверь
8736 / 4154 / 1604
Регистрация: 28.10.2009
Сообщений: 11,226
24.09.2016, 18:32 5
Цитата Сообщение от ZX Spectrum-128 Посмотреть сообщение
a[i] := -n div 2 + random(n);
Вот это к чему в данной задаче?
1
Эксперт Pascal/Delphi
6530 / 4398 / 4703
Регистрация: 05.06.2014
Сообщений: 21,615
24.09.2016, 19:25 6
кот Бегемот, генерируются псевдослучайные числа.
1
Платежеспособный зверь
8736 / 4154 / 1604
Регистрация: 28.10.2009
Сообщений: 11,226
24.09.2016, 21:04 7
Цитата Сообщение от ZX Spectrum-128 Посмотреть сообщение
кот Бегемот, генерируются псевдослучайные числа.

Цитата Сообщение от кот Бегемот Посмотреть сообщение
-n div 2
это по вашему случайное число?
1
Эксперт Pascal/Delphi
6530 / 4398 / 4703
Регистрация: 05.06.2014
Сообщений: 21,615
24.09.2016, 21:15 8
кот Бегемот, random(n) - вот это псевдослучайное. А вообще данную конструкцию я использую практически всегда, чтобы не набирать данные вручную.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.09.2016, 21:15

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Массив: В массиве из n элементов найти порядковые номера первого отрицательного и последнего положительного элементов
В одномерном массиве из n элементов найти порядковые номера первого отрицательного и последнего...

Найти номер первого отрицательного элемента в одномерном массиве деленного на 5 с остатком 2
найти номер первого отрицательного элемента в одномерном масиве деленного на 5 с остатком 2. Все...

В одномерном массиве найти сумму целых частей елементов, расположенных после последнего отрицательного элемента
Здорова)) вот такая вот весчица) в одномерном массиве надо подсчитать: 1. количество елементов...

В одномерном числовом массиве размерности n найти произведение элементов, расположенных до первого отрицательного элемента
Задачи на одномерные массивы 1 В одномерном числовом массиве размерности n найти произведение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.