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

@muxomor · Регистрация: 07.11.2009

Студворк — интернет-сервис помощи студентам

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

Добавлено через 11 минут

Delphi

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;

что дальше? подскажите, плиз

((

@Vladiator · 03.02.2010, 14:45

Delphi

...
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, то это не означает, что число нечётное

@muxomor · 03.02.2010, 14:50 **[ТС]**

да-да, надо (i mod 2)=1, точно

а как, без условного оператора?

((

@Vladiator · 03.02.2010, 14:50

Сообщение от muxomor

а как, без условного оператора?

Я написал в посте №2

@muxomor · 03.02.2010, 14:55 **[ТС]**

выводит 5 элементов, а дальше нули

((

@Vladiator · 03.02.2010, 15:04

Сообщение от muxomor

выводит 5 элементов, а дальше нули

потому что выводить надо до n div 2

@muxomor · 03.02.2010, 15:05 **[ТС]**

добавил в твой код:

Delphi

1
2
3

for I := 1 to n div 2 do begin
write (B[i], ' ');
    end;

5 нулей выводит

((

@Vladiator · 03.02.2010, 15:08

muxomor, а как он раньше выводил? какой код вы добавили, чтобы он выводил 5 элементов и дальше нули?

@muxomor · 03.02.2010, 15:11 **[ТС]**

не помню

((

Добавлено через 1 минуту
у нас программирование вторую сессию идет, я заочник, по массивам тока одну неделю лекции были

(( что-то добавил, вывел пяить элементов, потом нули, все убрал, оставил только ваш код, добавил вывод массива, нули вывел

@Vladiator · 03.02.2010, 15:19

muxomor, я понял, в чём дело) надо ещё ввод массива создать

Добавлено через 1 минуту

Delphi

for i:=1 to n do begin
 a[i]:=random(20)+1;
 write(a[i]:4);
end;
writeln;

это надо добавить после begin'а

@muxomor · 03.02.2010, 15:29 **[ТС]**

спс, все работает

))))

@rangerx · 03.02.2010, 15:38

Нужно элементарно скопировать элементы с нечетными порядковыми номерами одного массива в другой. Зачем здесь какие-то проверки/деления и т.д?

@rangerx 2021 / 1620 / 489 Регистрация: 31.05.2009 Сообщений: 3,005
	03.02.2010, 15:38	12
	Нужно элементарно скопировать элементы с нечетными порядковыми номерами одного массива в другой. Зачем здесь какие-то проверки/деления и т.д? 0

@muxomor 1 / 1 / 0 Регистрация: 07.11.2009 Сообщений: 49
	03.02.2010, 14:50 [ТС]	3
	да-да, надо (i mod 2)=1, точно а как, без условного оператора?(( 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	03.02.2010, 14:50	4
	Сообщение от muxomor а как, без условного оператора? Я написал в посте №2 0

@muxomor 1 / 1 / 0 Регистрация: 07.11.2009 Сообщений: 49
	03.02.2010, 14:55 [ТС]	5
	выводит 5 элементов, а дальше нули(( 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	03.02.2010, 15:04	6
	Сообщение от muxomor выводит 5 элементов, а дальше нули потому что выводить надо до n div 2 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	03.02.2010, 15:08	8
	muxomor, а как он раньше выводил? какой код вы добавили, чтобы он выводил 5 элементов и дальше нули? 0

@muxomor 1 / 1 / 0 Регистрация: 07.11.2009 Сообщений: 49
	03.02.2010, 15:11 [ТС]	9
	не помню(( Добавлено через 1 минуту у нас программирование вторую сессию идет, я заочник, по массивам тока одну неделю лекции были(( что-то добавил, вывел пяить элементов, потом нули, все убрал, оставил только ваш код, добавил вывод массива, нули вывел 0

@muxomor 1 / 1 / 0 Регистрация: 07.11.2009 Сообщений: 49
	03.02.2010, 15:29 [ТС]	11
	спс, все работает)))) 0

Опции темы