0 / 0 / 0
Регистрация: 25.06.2019
Сообщений: 6
1

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

25.06.2019, 22:07. Показов 6919. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Приветствую всех! Не откажите в помощи бедному студенту.. Помогите написать программу в которой имеются два массива с одинаковым количеством значений, с помощью которых нужно будет создать третий массив каждый элемент которого равен сумме двух известных (первых) массивов.
P.S. Значения элементов в первичных массивах может быть любым (на Ваше усмотрение).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.06.2019, 22:07
Ответы с готовыми решениями:

Создать массив, каждый элемент которого равен сумме двух предыдущих элементов
Известны два первых элемента массива B: B=4, B=8.Создать массив, каждый элемент которого равен...

Получить третий массив такой же размерности, каждый элемент которого равен большему из соответствующих элементов данных массивов
Даны 2 одномерных массива одинаковой размерности. Получить третий массив такой же размерности,...

Сформировать одномерный массив, каждый элемент которого равен сумме отрицательных нечетных элементов
2. Дан двумерный массив размером 5 x 6. Сформировать одномерный массив, каждый элемент которого...

Даны 2 массива. Получить 3 массив, каждый элемент которого равен сумме соотвестветствующих элементов исходных
2) Даны 2 одномерных массива одинаковой длины.Получить 3 массива такой же размерности,каждый...

1
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
26.06.2019, 02:01 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
program Project1;
const
  maxelem = 25;
type
  TArr = array [1..maxelem] of integer;
 
procedure RandomInfInArray (var arr: TArr; narr,leftval,rightval: integer);
// Процедура для заполнения одномерного массива случайными числами.
var
   i: integer;
begin
for i:= 1 to narr do
  arr[i]:= leftval + random(rightval - leftval + 1) ;
 
end;
 
procedure InfOutArray (arr: TArr; narr: integer);
// Процедура для вывода элементов массива на экран.
var
   i: integer;
begin
  for i:= 1 to narr do
    begin
      Write(arr[i]:4);
      if i mod 10 = 0 then
        Writeln;
    end;
end;
 
procedure ArraySumArray (arr,brr: TArr; narr: integer; var crr: TArr);
// Процедура для суммирования элементов двух массивов и вывода результата в третий массив.
var
   i: integer;
begin
  for i:= 1 to narr do
    crr[i]:= arr[i] + brr[i];
end;
 
var
   a,b,c:TArr;  // Переменные для хранения массивов.
   n: integer;  // Переменная для хранения значения количества элементов массива.
begin
  Writeln('Введите значение количества элементов массива:');
  Readln(n);
  RandomInfInArray(a,n,-100,100);
  RandomInfInArray(b,n,-100,100);
  Writeln('Исходный массив A:');
  InfOutArray(a,n);
  Writeln('Исходный массив В:');
  InfOutArray(b,n);
  ArraySumArray(a,b,n,c);
  Writeln('Результат суммирования массива А и массива В:');
  InfOutArray(c,n);
  Readln;
end.
Добавлено через 15 минут
Та же самая программа, но без процедур.

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
program Project1;
const
  maxelem = 25;
 
var
   a,b,c: array [1..maxelem] of integer;  // Переменные для хранения массивов.
   n: integer;  // Переменная для хранения значения количества элементов массива.
   i: integer; //  Вспомогательная переменная для организации циклов.
 
begin
  Randomize;
  Writeln('Введите значение количества элементов массива:');
  Readln(n);
  for i:= 1 to n do
    begin
      a[i]:= random(201)-100;  // Массив А заполняется случайными числами.
      b[i]:= random(201)-100;  // Массив B заполняется случайными числами.
    end;
  Writeln('Исходный массив A:');
  for i:= 1 to n do
    begin
      Write(a[i]:4);            // Элементы массива А выводятся на экран.
      if i mod 10 = 0 then
        Writeln;
    end;
  Writeln('Исходный массив В:');
  for i:= 1 to n do
    begin
      Write(b[i]:4);           // Элементы массива В выводятся на экран.
      if i mod 10 = 0 then
        Writeln;
    end;
  Writeln('Результат суммирования массива А и массива В:');
  for i:= 1 to n do
    begin
      c[i]:= a[i] + b[i];     // Элементы массивов А и В суммируются и запоминаются в массиве С
      Write(c[i]:4);          // Элементы массива С выводятся на экран.
      if i mod 10 = 0 then
        Writeln;
    end;
 
  Readln;
end.
1
26.06.2019, 02:01
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.06.2019, 02:01
Помогаю со студенческими работами здесь

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

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

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

Дан массив В из N строк произвольной длины.Сформировать массив В,каждый элемент которого равен последнему символу соответствующей строки.
Дан массив В из N строк произвольной длины.Сформировать массив В,каждый элемент которого равен...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru