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

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

04.06.2012, 17:47. Показов 9331. Ответов 3
Метки нет (Все метки)

Даны два целочисленных массива, состоящие из одинакового числа элементов. Получить третий массив такой же размерности, каждый элемент которого равен наибольшему из соответствующих элементов двух данных массивов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2012, 17:47
Ответы с готовыми решениями:

Даны два целочисленных массива С из 10 элементов и D из 12 элементов. Получить все элементы массива C, которые входят в массив D
Огромная просьба помочь 2) Даны два целочисленных массива С из 10 элементов и D из 12 элементов....

Даны два целочисленных одномерных массива. Сформировать третий одномерный массив на основе данных (полное в описании)
Помогите пожалуйста решить задачу!! Срочно нужна помощь! Даны два целочисленных одномерных...

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

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

3
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
04.06.2012, 18:28 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
const
  nmax=100;
type 
  tArr=array[1..nmax] of integer;
  
procedure init(n1: integer; var ar: tArr);
var i: integer;
begin
  for i:=1 to n1 do
  begin
    ar[i]:=random(99)+1;
    write(ar[i],' ');
  end;
  writeln; writeln;
end;
 
var
  a,b,c: tArr;
  i,n: integer;
begin
  write('Введите размер массива: ');
  readln(n);
  writeln('Массив A:');
  init(n,a);
  writeln('Массив B:');
  init(n,b);
  
  writeln('Массив C:');
  for i:=1 to n do
  begin
    c[i]:=max(a[i],b[i]);
    write(c[i],' ');
  end;
  readln;
end.
0
0 / 0 / 0
Регистрация: 19.03.2013
Сообщений: 17
15.04.2013, 19:30 3
ermolay, а можете составить такую же задачу только без команды procedure, и каждый элемент которого равен большему из соответствующих элементов данного массива.
Заранее спасибо, не забудьте сделать в ответ, чтоб я увидел)
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
15.04.2013, 20:24 4
Mr_Brown, пожалуйста)
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
var
  a,b,c: array[1..100] of integer;
  n,i: byte;
begin
  randomize;
  write('Введите размер массивов n: ');
  readln(n);
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    b[i]:=random(99)+1;
  end;
  writeln('Массив A:');
  for i:=1 to n do write(a[i]:4);
  writeln;
  writeln('Массив B:');
  for i:=1 to n do write(b[i]:4);
  writeln;
  writeln('Полученный массив С:');
  for i:=1 to n do
  begin
    if a[i]>b[i] then c[i]:=a[i]
      else c[i]:=b[i];
    write(c[i]:4);
  end;
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2013, 20:24
Помогаю со студенческими работами здесь

Даны массивы два массива. Получить третий массив
Здравствуйте. Прошу помощи у вас. Посмотрите, правильно ли я составил программу? Подправьте, если...

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

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

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


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

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

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