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

Поменять местами элементы массива a, имеющие нечётный индекс на элементы массива b, имеющие чётный индекс

05.12.2017, 16:35. Показов 933. Ответов 1

дан массив a и b содержащий по 20 элементов каждом.Поменять местами элементы массива a ,имеющие нечётный индекс на элементы массива b ,имеющие чётный индекс и найти минимальные элементы в этих массивах.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2017, 16:35
Ответы с готовыми решениями:

Поменять местами элементы массива А, имеющие нечетный индекс, на элементы массива В, имеющие четный индекс
Даны два массива А и В по 20 элементов в каждом. Поменять местами элементы массива А, имеющие...

Поменять местами элементы массива А, имеющие нечетный индекс, на элементы массива В, имеющие четный индекс
Недавно начал изучать Delphi. Все шло хорошо, пока не наткнулся на одну проблемку. "Даны два...

Поменять местами элементы массива А, имеющего нечётный индекс, на элементы массива В, имеющие чётный индекс, и найти минимальные элементы Амах и В мах
даны два массива А и В по 20 элементов в каждом. Поменять местами элементы массива А, имеющего...

Из массива удалить элементы, имеющие четный индекс
Из массива удалить элементы, имеющие четный индекс и стоящие между максимальным и минимальным...

1
Эксперт Pascal/Delphi
6758 / 4532 / 4802
Регистрация: 05.06.2014
Сообщений: 22,351
05.12.2017, 19:03 2
Лучший ответ Сообщение было отмечено антон 672 как решение

Решение

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
const
  n = 20;
 
var
  a, b: array [1..n] of integer;
  min1, min2, i, k: integer;
  
begin
  randomize;
  writeln('Исходные массивы: ');
  min1 := 1;
  min2 := 1;
  for i := 1 to n do 
  begin
    a[i] := -n div 2 + random(n);
    b[i] := -n div 2 + random(n);
    writeln(a[i]:5, b[i]:5);
  end;
  i := 1; 
  while i <= n  do 
  begin
    k := a[i];
    a[i] := b[i + 1];
    b[i + 1] := k;
    inc(i, 2);
  end;
  writeln('Измененные массивы: ');
  for i := 1 to n do 
  begin
    writeln(a[i]:5, b[i]:5);
    if a[i] < a[min1] then 
      min1 := i;
    if b[i] < b[min2] then 
      min2 := i;
  end;
  writeln('Min A: ', a[min1]:5, ' min B: ', b[min2]:5);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2017, 19:03

Отобрать элементы массива, имеющие четный индекс
Нужно из массива размера size сделать 2 массива, один содержащий только элементы стоящие на четных...

В массив В перенести все элементы массива А, имеющие четный индекс
4. Ввести массив А. В массив В перенести все элементы массива А, имеющие четный индекс, справа от...

Составить функцию, которая утраивает элементы массива, имеющие нечетный индекс
Составить функцию, которая утраивает элементы массива, имеющие нечетный индекс. Используя эту...

Из массива удалить элементы, имеющие четный индекс и стоящие между максимальным и минимальным элементами
1)Из массива удалить элементы, имеющие четный индекс и стоящие между максимальным и минимальным...


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

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

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