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

Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все элементы с нечетными порядковыми номерами (1, 3, …)

03.02.2010, 14:41. Показов 3019. Ответов 11
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все элементы
с нечетными порядковыми номерами (1, 3, …) и вывести размер полученного массива B и его содержимое.
Условный оператор не использовать.

Добавлено через 11 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
type
  massiv= array[1..10] of integer;
  var
      i,n:integer;
      A,B:massiv;
  begin
  write('vvedite n');
  readln(n);
  randomize;
  for I := 1 to n do begin
    A[i]:=random(81)-40;
end;
  for I := 1 to n do begin
  write (A[i], ' ');
  end;
  for I := 1 to n do begin
  if ((i mod 2)=1) then begin    
  B[i]:=A[i];
  end;
что дальше? подскажите, плиз((
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.02.2010, 14:41
Ответы с готовыми решениями:

Переписать в новый целочисленный массив B все элементы с порядковыми номерами, кратными трем
Доброго времени суток! Выручайте, дали задачу на практике, решить пока не получается. 1) Дан...

Переписать в новый целочисленный массив В все элементы с порядковыми номерами, кратными трем
очень срочно.....завтра сдавать....а я в этом дуб-дубом.. дан целочисленный массив A размера N...

Переписать в новый целочисленный массив В все элементы с порядковыми номерами, кратными трем (консоль не использовать)
пожалуйста помогите решить задачу: Дан целочисленный массив A размера N (<=15).Переписать в новый...

Переписать в новый массив B все элементы массива A с нечетными порядковыми номерами (1, 3, …)
Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все элементы с...

11
1574 / 645 / 79
Регистрация: 24.02.2009
Сообщений: 9,268
03.02.2010, 14:45 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
...
const
 n=10;
...
var
 a,b:array[1..n]of integer;
 i:integer;
begin
 //предполагается, что значения уже введены
 i:=1;
 while i<=n do begin
  b[i div 2 +1]:=a[i];
  i:=i+2;
 end;
end;
...
Добавлено через 29 секунд
Цитата Сообщение от muxomor Посмотреть сообщение
if ((i mod 3)=1) then begin
->
Цитата Сообщение от muxomor Посмотреть сообщение
Условный оператор не использовать.
к тому же, можно и
Delphi
1
if i mod 2=1 then
...
а если mod 3 = 1, то это не означает, что число нечётное
0
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
03.02.2010, 14:50  [ТС] 3
да-да, надо (i mod 2)=1, точно
а как, без условного оператора?((
0
1574 / 645 / 79
Регистрация: 24.02.2009
Сообщений: 9,268
03.02.2010, 14:50 4
Цитата Сообщение от muxomor Посмотреть сообщение
а как, без условного оператора?
Я написал в посте №2
0
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
03.02.2010, 14:55  [ТС] 5
выводит 5 элементов, а дальше нули((
0
1574 / 645 / 79
Регистрация: 24.02.2009
Сообщений: 9,268
03.02.2010, 15:04 6
Цитата Сообщение от muxomor Посмотреть сообщение
выводит 5 элементов, а дальше нули
потому что выводить надо до n div 2
0
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
03.02.2010, 15:05  [ТС] 7
добавил в твой код:
Delphi
1
2
3
for I := 1 to n div 2 do begin
write (B[i], ' ');
    end;
5 нулей выводит((
0
1574 / 645 / 79
Регистрация: 24.02.2009
Сообщений: 9,268
03.02.2010, 15:08 8
muxomor, а как он раньше выводил? какой код вы добавили, чтобы он выводил 5 элементов и дальше нули?
0
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
03.02.2010, 15:11  [ТС] 9
не помню((

Добавлено через 1 минуту
у нас программирование вторую сессию идет, я заочник, по массивам тока одну неделю лекции были(( что-то добавил, вывел пяить элементов, потом нули, все убрал, оставил только ваш код, добавил вывод массива, нули вывел
0
1574 / 645 / 79
Регистрация: 24.02.2009
Сообщений: 9,268
03.02.2010, 15:19 10
muxomor, я понял, в чём дело) надо ещё ввод массива создать

Добавлено через 1 минуту
Delphi
1
2
3
4
5
for i:=1 to n do begin
 a[i]:=random(20)+1;
 write(a[i]:4);
end;
writeln;
это надо добавить после begin'а
1
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
03.02.2010, 15:29  [ТС] 11
спс, все работает))))
0
2021 / 1620 / 489
Регистрация: 31.05.2009
Сообщений: 3,005
03.02.2010, 15:38 12
Нужно элементарно скопировать элементы с нечетными порядковыми номерами одного массива в другой. Зачем здесь какие-то проверки/деления и т.д?
0
03.02.2010, 15:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.02.2010, 15:38
Помогаю со студенческими работами здесь

Переписать в новый целочисленный массив B все элементы с нечетными порядковыми номерами.
В очередной раз прошу помощи в решении сложного (пока) для меня задания, ребята, помогите......

Переписать в новый целочисленный массив B все элементы с нечетными порядковыми номерами
При выполнении заданий не следует использовать вспомогательные массивы. Задача 55. Дан...

Переписать в новый целочисленный массив B все элементы с нечетными порядковыми номерами
Дан целочисленный массив A размера N (≤ 15). Переписать в новый целочисленный массив B все элементы...

Переписать в новый целочисленный массив В все элементы с нечетными порядковыми номерами (1,3, .)
Дан целочисленный массив А размера N(&lt;15). Переписать в новый целочисленный массив В все элементы с...


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

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

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