Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Что будет выведено на экран в результате работы программы ? https://www.cyberforum.ru/ pascalabc/ thread2372910.html
Program Main; Var a,b,c,d:Integer; Function f(Var b:integer;c:integer):Integer; Var d:integer; Begin a=2;b:=b+1;d:=3;c=b-a; Writeln(a,b,c,d); f:=d; End; Begin a:=0;b=0;c:=0;d:=0;
Pascal ABC Данная матрица размера М × N. Найти номера строки и столбца для элемента матрицы, наиболее близкого к среднему
Данная матрица размера М × N. Найти номера строки и столбца для элемента матрицы, наиболее близкого к среднему значению всех ее элементов.
Данная квадратная матрица A порядка М (М - нечетное число) Pascal ABC
Данная квадратная матрица A порядка М (М - нечетное число). начиная с элемента A1,1 и перемещаясь по часовой стрелке, вывести все ее элементы по спирали: первая строка, последний столбец,...
Pascal ABC Разветвление Помогите нужно написать программу по типу если x = 2 то выполняется пример 1 в других случаях выполняется пример 2. https://www.cyberforum.ru/ pascalabc/ thread2372885.html
Pascal ABC Составить программу решения задачи, используя двухмерный массив https://www.cyberforum.ru/ pascalabc/ thread2372615.html
Дано число k (0 < k < 11) и матрица размера 4 x 10. Найти сумму и произведение элементов k - го столбца данной матрицы. Так же нужно сделать вывод, для выхода 0-ля или больше чем условия ...
Pascal ABC Дан массив А размера N. Упорядочить только элементы с нечетными индексами по убыванию
Дан массив А размера N. Упорядочить только элементы с нечетными индексами по убыванию. Помогите очень срочно нада!!!!!!!!
Преобразовать каждое слово в строке, удалив из него все последующие вхождения Pascal ABC
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Преобразовать каждое слово в строке, удалив из него все последующие вхождения первой буквы этого слова...
Pascal ABC Напечатать слова, в которых каждая буква входит не менее двух раз Составить программу для розвязання задачи. Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами - запятая, за последним... https://www.cyberforum.ru/ pascalabc/ thread2372537.html
Pascal ABC Уменьшение числа N в M https://www.cyberforum.ru/ pascalabc/ thread2372524.html
Есть число N если оно не парное, тогда отнять единицу и вывести на экран "-1", если парное разделить на 2 и вывести на экран ":2" Ввод данных: N, M-число в которое превращаем N Вывод данных:...
Pascal ABC На одной планете в далёкой-далёкой галактике живут два вида организмов не могу найти ошибку,программа продолжает считывать строки,почему? На одной планете в далёкой-далёкой галактике живут два вида организмов. Обозначим их за Aи B. Организмы вида A питаются организмами... https://www.cyberforum.ru/ pascalabc/ thread2372501.html
Эксперт Pascal/Delphi
6650 / 4474 / 4750
Регистрация: 05.06.2014
Сообщений: 21,995
15.12.2018, 15:56 0

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

15.12.2018, 15:56. Показов 7072. Ответов 1
Метки (Все метки)

Ответ

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.


Вернуться к обсуждению:
Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В, состоящий из m элементов),
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2018, 15:56
Готовые ответы и решения:

Даны два одномерных массива целых чисел (массив А, состоящий из 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.