Создать вектор, содержащий номера элементов, которые отрицательные сразу в двух других векторах.

@Katachi · Регистрация: 04.12.2016

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

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

@Puporev · 28.02.2017, 11:30

Может так?

Pascal

var a,b,c:array[1..100] of integer;
    n,k,i:integer;
    m:set of byte;
begin
randomize;
repeat
write('Введите размер векторов от 1 до 100 n=');
readln(n);
until n in [1..100];
writeln('Вектор А');
for i:=1 to n do
 begin
  a[i]:=-20+random(41);
  write(a[i]:4);
 end;
writeln;
writeln('Вектор B');
for i:=1 to n do
 begin
  b[i]:=-20+random(41);
  write(b[i]:4);
 end;
writeln;
writeln('Вектор номеров элементов, отрицательных в обоих векторах');
m:=[];
for i:=1 to n do
if (a[i]<0)and(b[i]<0) then m:=m+[i]; //создали множество номеров
if m=[] then write('Таких номеров нет')
else
 begin  //создаем вектор из множества
  k:=0;
  for i:=1 to n do
  if i in m then
   begin
    k:=k+1;
    c[k]:=i;
    write(i:4);
   end;
 end;
end.

Добавлено через 2 минуты
Хотя непонятно зачем здесь множество, если вектор можно создать и без него, или может не нужно делать третий вектор, а достаточно только множества? Короче разбирайтесь, в коде есть все.

@Katachi · 28.02.2017, 20:06 **[ТС]**

Извиняюсь писал тему при плохом интернет соединении и не добавило инструкцию.
Нужно реализовать задачу, используя множества, двумя способами: в виде процедуры и с помощью функции. Программа должна содержать описание необходимых типов, наличие параметров в подпрограммах обязательна. Операции ввода и вывода должны быть реализованы вне подпрограммами вычисления.

@ZX Spectrum-128 · 06.03.2017, 19:30

Katachi,

Чтобы "поднять" тему в разделе и поиске по форуму, используйте осмысленные сообщения, например "Тема/проблема/задача актуальна". Если вы чего-то достигли в решении проблемы на этот момент, сообщите об этом.

@Katachi 0 / 0 / 1 Регистрация: 04.12.2016 Сообщений: 20
		1
	Создать вектор, содержащий номера элементов, которые отрицательные сразу в двух других векторах. 27.02.2017, 21:37. Показов 1494. Ответов 3 Метки актуально, множества (Все метки) С помощью множеств создать вектор, содержащий номера элементов, которые отрицательные сразу в двух других векторах. Пытался сделать но пропустил эту тему и не понял. Помогите создать программу под это задание. 0

@Katachi 0 / 0 / 1 Регистрация: 04.12.2016 Сообщений: 20
	28.02.2017, 20:06 [ТС]	3
	Извиняюсь писал тему при плохом интернет соединении и не добавило инструкцию. Нужно реализовать задачу, используя множества, двумя способами: в виде процедуры и с помощью функции. Программа должна содержать описание необходимых типов, наличие параметров в подпрограммах обязательна. Операции ввода и вывода должны быть реализованы вне подпрограммами вычисления. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	06.03.2017, 19:30	4
	Katachi, Чтобы "поднять" тему в разделе и поиске по форуму, используйте осмысленные сообщения, например "Тема/проблема/задача актуальна". Если вы чего-то достигли в решении проблемы на этот момент, сообщите об этом. 0

Создать вектор, содержащий номера элементов, которые отрицательные сразу в двух других векторах.

Решение