Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
QOLaaS
0 / 0 / 0
Регистрация: 14.12.2018
Сообщений: 12
1

Массив: Сформировать из элементов двух массивов два новых: один - из положительных, а второй - из отрицательных...

14.02.2019, 08:44. Просмотров 1594. Ответов 4

Даны два одномерных массива целых чисел (массив A, состоящий из n элементов, массив B - из m элементов), заполненных случайным образом числами из промежутка [L,P]. Сформировать из элементов этих массивов два новых массива (C,D) (Ввод и вывод массивов оформить в процедурах) по правилу: Массив C состоит из положительных элементов исходных массивов, а массив D - отрицательных. n=17, m=18, L=-30, P=60.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.02.2019, 08:44
Ответы с готовыми решениями:

Сформировать из массива два новых: первый — из отрицательных элементов, второй — из положительных
Задать массив случайными вещественными числами в диапазоне значений от -90 до +100. Сформировать из...

Из положительных и отрицательных элементов исходного массива сформировать два новых
3*. Составьте программу формирования из массива A(N) двух массивов, в которых первый массив...

Сформировать из элементов массивов А, В два новых массива C, D по правилу
Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В – из...

Сформировать из элементов исходных массивов два новых массива по правилу
Даны два одномерных массива целых чисел (массив A, состоящий из n элементов, массив B - из m...

Сформировать два новых массива: . В первый массив поместить элементы с четными индексами, а во второй с нечетными
Задан числовой массив размером 10. Сформировать 2 массива размером 5. В первый массив поместить...

4
CoderPC
239 / 159 / 74
Регистрация: 12.02.2019
Сообщений: 521
14.02.2019, 09:13 2
Pascal то какой?
0
QOLaaS
0 / 0 / 0
Регистрация: 14.12.2018
Сообщений: 12
14.02.2019, 09:35  [ТС] 3
Pascal ABC
0
ValentinNemo
110 / 76 / 40
Регистрация: 15.01.2019
Сообщений: 309
18.02.2019, 00:06 5
Лучший ответ Сообщение было отмечено QOLaaS как решение

Решение

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
program PlusMinusArr;
const
  nmax = 100;   // Максимальное количество элементов всех используемых массивов.
 
type
  mass = array [1..nmax] of integer;
 
var
    a,b,c,d: mass; //Переменные массивов.
    i,j,k: integer; // Промежуточные переменные для работы циклов.
    n,m: integer;  // Переменные, которые задают число элементов в массивах.
 
procedure  vvodarr (n1: integer; var arr1: mass);
var
  g: integer;  //Переменная которая задает режим работы ввода "Ручной" или "Автоматический".
  i : integer;  // Переменная для работы циклов.
  L,P,PL: integer; //Переменные, которые задают границы генератора случайных чисел.
begin
  randomize;
  Writeln('Введите цифру 1, если ввод будет ручной или введите цифру 2, если нужно ');
  Write('заполнить массив автоматически случайными числами. ');
  ReadLn(g);
  if g = 1 then
     for i:=1 to n1 do
       Read(arr1[i]); //Заполняем массив в ручную.
  if g = 2 then
     begin
       write('Введите нижнюю границу генератора случайных чисел: ');
       readln(L);
       write('Введите верхнюю границу генератора случайных чисел: ');
       readln(P);
 
       PL:=abs(L)+abs(P)+1;
       for i:=1 to n1 do  //Заполняем массив случайными числами.
          arr1[i]:=random(PL)-abs(L);
     end;
end;
 
procedure vivodarr(narr: integer; arr2: mass);
var
  i: integer;  //Переменная для работы цикла.
begin
  for i:=1 to narr do
     Write(arr2[i],' '); //Выводим содержимое массива на экран.
end;
 
 
 
 
 
begin
 
 
write('Введите максимальное число элементов массива a (не более ',nmax,'): ');
readln(n);
vvodarr(n,a); // Вводим числа в массив a.
writeln();
vivodarr(n,a); // Выводим содержимое массива a на экран.
writeln();
write('Введите максимальное число элементов массива b (не более ',nmax,'): ');
readln(m);
vvodarr(m,b);  // Вводим числа в массив b.
writeln();
vivodarr(m,b);  // Выводим содержимое массива b на экран.
writeln();
 
j:=1;
for i:=1 to n do   //Ищем положительные числа в массиве a.
   if a[i]>0 then
      begin
        c[j]:=a[i]; // Присваиваем элементам массива c найденные числа.
        inc(j);
      end;
 
k:=1;
for i:=1 to n do   // Ищем отрицательные числа в массиве a.
   if a[i]<0 then
      begin
        d[k]:=a[i]; // Присваиваем элементам массива d найденные числа.
        inc(k);
      end;
 
for i:=1 to m do    // Ищем положительные числа в массиве a.
   if b[i]>0 then
      begin
        c[j]:=b[i];  // Присваиваем элементам массива c найденные числа.
        inc(j);
      end;
 
for i:=1 to m do     //  Ищем отрицательные числа в массиве a.
   if b[i]<0 then
      begin
        d[k]:=b[i];  //  Присваиваем элементам массива d найденные числа.
        inc(k);
      end;
 
writeln;
writeln('Массив положительных чисел: ');
vivodarr((n+m),c);
writeln;
writeln('Массив отрицательных чисел: ');
vivodarr((n+m),d);
 
readln;
end.
1
18.02.2019, 00:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2019, 00:06

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

Сформировать два массива - первый из положительных элементов исходного, второй - из отрицательных
Дан целочисленный одномерный массив Т который состоит из 25 эл. Сформировать два массива первый...

Массив из 10 целых чисел Создать два новых массива из положительных и отрицательных элементов
Ввести в stringGrid массив из 10 целых чисел Создать два новых массива из положительных и...


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

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

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