Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.68/34: Рейтинг темы: голосов - 34, средняя оценка - 4.68
0 / 0 / 0
Регистрация: 15.12.2018
Сообщений: 2
1

Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В, состоящий из m элементов),

15.12.2018, 14:29. Просмотров 6773. Ответов 1


Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В, состоящий из m элементов), заполненных случайным образом числом из промежутка [L,P].
Сформировать из элементов этих массивов два новых массива (С,D).
Ввод и вывод массивов оформить в процедурах.
n=15, m=20, L=10, P=99; Массив С состоит из тех элементов исходных массивов, в которых обе ЦИФРЫ ЧЕТНЫЕ, а массив D- обе ЦИФРЫ НЕ четные
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2018, 14:29
Ответы с готовыми решениями:

Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В – из m элементов), заполненных с
n= 22, m= 16, L= -50, P=30; Массив С состоит из элементов исходных массивов, меньших первого...

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

Даны два массива. Сформируйте массив С, состоящий из общих элементов массива А и В
Даны два массива: массив А из n элементов и массив В из m элементов. Сформируйте массив С,...

Даны два массива: А(10) и В(10) образуйте массив С, состоящий из сумм соответствующих элементов массива А и В
Даны два массива: А(10) и В(10) образуйте массив С, состоящий из сумм соответствующих элементов...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
Эксперт Pascal/Delphi
6583 / 4433 / 4722
Регистрация: 05.06.2014
Сообщений: 21,768
15.12.2018, 15:56 2
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
const
  n = 15;
  m = 20;
  L = 10;
  P = 99;
  n_max = 100;
 
type
  vector = array [1..n_max] of integer;
 
var
  a, b, c, d: vector;
  k, i: integer;
 
function TwoOdd(q: integer): boolean;
begin
  TwoOdd := ((q mod 10) mod 2 = 0) and ((q div 10) mod 2 = 0);
end;
 
function TwoNotOdd(q: integer): boolean;
begin
  TwoNotOdd := ((q mod 10) mod 2 <> 0) and ((q div 10) mod 2 <> 0);
end;
 
procedure RandomVector(var x: vector; k: integer);
var
  i: integer;
begin
  for i := 1 to k do 
    x[i] := random(p - l + 1) + l;
end;
 
procedure PrintVector(x: vector; k: integer);
var
  i: integer;
begin
  for i := 1 to k do 
    write(x[i]:4);
  writeln;
end;
 
begin
  randomize;
  writeln('Array A:');
  randomvector(a, n);
  printvector(a, n);
  writeln('Array B:');
  randomvector(b, m);
  printvector(b, m);
  k := 0;
  for i := 1 to n do 
    if twoodd(a[i]) then 
    begin
      inc(k);
      c[k] := a[i];
    end;
  for i := 1 to m do 
    if twoodd(b[i]) then 
    begin
      inc(k);
      c[k] := b[i];
    end;
  writeln('Array C:');    
  for i := 1 to k do 
    write(c[i]:4);
  writeln;  
  k := 0;
  for i := 1 to n do 
    if twonotodd(a[i]) then 
    begin
      inc(k);
      d[k] := a[i];
    end;
  for i := 1 to m do 
    if twonotodd(b[i]) then 
    begin
      inc(k);
      d[k] := b[i];
    end;
  writeln('Array D:');    
  for i := 1 to k do 
    write(d[i]:4);
  writeln;    
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2018, 15:56

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

Даны два массива: А, состоящий из N элементов и В, состоящий из N элементов
Даны два массива: А, состоящий из N элементов и В, состоящий из N элементов. Сформировать массив C...

Дан массив а, состоящий из n целых чисел (n < = 100). Найти количество максимальных элементов массива
Дан массив а, состоящий из n целых чисел (n &lt; = 100). Найти количество максимальных элементов...

Дан массив а, состоящий из n целых чисел (n < = 100). Найти количество максимальных элементов массива
не могу найти ошибку #include &lt;iostream.h&gt; #include &lt;conio.h &gt; void main() { int a; int...

Дан массив, состоящий из N целых элементов. Найти произведение элементов массива
Дан массив, состоящий из N целых элементов. Найти произведение элементов массива


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

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

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