Массив. Вывести элеметы с нечётными номерами в порядке убывания номеров

@masa1 · Регистрация: 28.04.2012

дан массив А размера N (N нечётное число). Вывести его элеметы с нечётными номерами в порядке убывания номеров: Аn, An-2,An-4,.....,A1, а затем все элементы с чётными номерами в порядке возврастания.

@КонецСвета · 28.04.2012, 20:38

Pascal

uses crt;
const nmax=25;
var a: array [1..nmax] of integer;
    n,i: integer;
begin
repeat
write('Количество элементов, не более ',nmax,', нечетное число, n=');
readln(n);
until (n in [1..nmax]) and (odd(n));
writeln('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(19)-9;
    write(a[i]:3);
    end;
writeln;
writeln('Итоговый массив');
i:=n;
while i>=1 do
      begin
      write(a[i]:3);
      i:=i-2;
      end;
i:=2;
while i<n do
      begin
      write(a[i]:3);
      i:=i+2;
      end;
readln;
end.

@masa1 · 02.05.2012, 17:01 **[ТС]**

КонецСвета, Спасибо , но код работает не правильно можешь просмотреть еще?

@КонецСвета · 02.05.2012, 17:08

masa1, а что неправильно? вроде все по условию...

@masa1 · 02.05.2012, 17:11 **[ТС]**

КонецСвета, а да прости, а можешь сделать все это на основе генератора случайных чисел?

@КонецСвета · 02.05.2012, 17:15

вот он, генератор случайных чисел в диапазоне от -9 до 9

Сообщение от КонецСвета

a[i]:=random(19)-9;

если паскаль турбо, надо еще в начале программы прописать randomize;

@masa1 · 03.05.2012, 20:42 **[ТС]**

Можете составить блок-схему для данной задачи, пожалуйста?

@masa1 · 12.05.2012, 20:11 **[ТС]**

Можете составить блок-схему для данной задачи, пожалуйста?

@Paster Fob · 12.05.2012, 20:28

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

Можете составить блок-схему для данной задачи, пожалуйста?

можем

@masa1 · 16.05.2012, 15:18 **[ТС]**

Paster Fob,
можно в excel?)

@Paster Fob · 16.05.2012, 19:50

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

Paster Fob,
можно в excel?)

можно
http://rghost.ru/38118954

@masa1 · 24.05.2012, 21:21 **[ТС]**

КонецСвета, для решения задачи нужно провести сортировку массмива и вывести преобразованный массив на экран с помощью команды : for i:=1 to n do;
write(a[i]:3)'

@КонецСвета · 24.05.2012, 21:34

masa1, могу сделать только с вспомогательным массивом... пойдет?

Pascal

uses crt;
const nmax=25;
var a,b: array [1..nmax] of integer;
    n,i,e,buf: integer;
    
begin
repeat
write('Количество элементов, не более ',nmax,', нечетное число, n=');
readln(n);
until (n in [1..nmax]) and (odd(n));
writeln('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(19)-9;
    write(a[i]:3);
    end;
writeln;
writeln('Итоговый массив');
i:=n; e:=0;
while i>=1 do
      begin
      inc(e);
      b[e]:=a[i];
      i:=i-2;
      end;
i:=2;
while i<n do
      begin
      inc(e);
      b[e]:=a[i];
      i:=i+2;
      end;
for i:=1 to n do
    write(b[i]:3);
readln;
end.

@masa1 · 24.05.2012, 21:37 **[ТС]**

КонецСвета, не пойдет

@ermolay · 26.05.2012, 17:30

Pascal

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  i,j,n,tmp,k,u: integer;
begin
  randomize;
  repeat
    write('Введите размер массива N (N - нечетное число): ');
    readln(n);
  until (n mod 2<>0);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=random(199)-99;
    write(a[i],' ');
  end;
  writeln;
 
  j:=n; k:=n; u:=0;
  for i:=1 to n div 2 do
  begin
    begin
      tmp:=a[k];
      for j:=n-u downto i+1 do
        a[j]:=a[j-1];
      dec(k);
      inc(u);
      a[i]:=tmp;
    end;
  end;
 
  writeln('Измененный массив:');
  for i:=1 to n do
    write(a[i],' ');
  readln;
end.

@masa1 · 28.05.2012, 16:17 **[ТС]**

ermolay, тут сортировка не обязательна?

@ermolay · 28.05.2012, 17:05

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

тут сортировка не обязательна?

тут мы берем массив и сортируем его так, как того требует задание.. то есть тут мы применяем свою собственную сортировку..

@masa1 · 29.05.2012, 21:34 **[ТС]**

ermolay, это в какой части?

@ermolay · 29.05.2012, 22:22

Pascal

j:=n; k:=n; u:=0;
  for i:=1 to n div 2 do
  begin
    begin
      tmp:=a[k];
      for j:=n-u downto i+1 do
        a[j]:=a[j-1];
      dec(k);
      inc(u);
      a[i]:=tmp;
    end;
  end;

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

хорошо, что глянул свежим взглядом, пара строк здесь лишние.. не ошибка, но и не к чему

Pascal

j:=n; k:=n; u:=0;
  for i:=1 to n div 2 do
  begin
      tmp:=a[k];
      for j:=n-u downto i+1 do
        a[j]:=a[j-1];
      dec(k);
      inc(u);
      a[i]:=tmp;
  end;

@Denis3961 · 21.09.2015, 09:29

А можно эту же задачу только с условными оператороми

@masa1 2 / 2 / 0 Регистрация: 28.04.2012 Сообщений: 52
	24.05.2012, 21:37 [ТС]	14
	КонецСвета, не пойдет 0

Массив. Вывести элеметы с нечётными номерами в порядке убывания номеров

Решение

Решение

Решение

Решение

@masa1 2 / 2 / 0 Регистрация: 28.04.2012 Сообщений: 52
	02.05.2012, 17:01 [ТС]	3
	КонецСвета, Спасибо , но код работает не правильно можешь просмотреть еще? 0

@КонецСвета Почетный модератор 7965 / 3936 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	02.05.2012, 17:08	4
	masa1, а что неправильно? вроде все по условию... Миниатюры 1

@masa1 2 / 2 / 0 Регистрация: 28.04.2012 Сообщений: 52
	02.05.2012, 17:11 [ТС]	5
	КонецСвета, а да прости, а можешь сделать все это на основе генератора случайных чисел? 0

@КонецСвета Почетный модератор 7965 / 3936 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	02.05.2012, 17:15	6
	вот он, генератор случайных чисел в диапазоне от -9 до 9 Сообщение от КонецСвета a[i]:=random(19)-9; если паскаль турбо, надо еще в начале программы прописать randomize; 1

@masa1 2 / 2 / 0 Регистрация: 28.04.2012 Сообщений: 52
	03.05.2012, 20:42 [ТС]	7
	Можете составить блок-схему для данной задачи, пожалуйста? 0

@masa1 2 / 2 / 0 Регистрация: 28.04.2012 Сообщений: 52
	12.05.2012, 20:11 [ТС]	8
	Можете составить блок-схему для данной задачи, пожалуйста? 0

@Paster Fob 296 / 274 / 194 Регистрация: 03.05.2012 Сообщений: 570
	12.05.2012, 20:28	9
	Сообщение было отмечено Памирыч как решение Решение Сообщение от masa1 Можете составить блок-схему для данной задачи, пожалуйста? можем Миниатюры 0

@masa1 2 / 2 / 0 Регистрация: 28.04.2012 Сообщений: 52
	16.05.2012, 15:18 [ТС]	10
	Paster Fob, можно в excel?) 0

@Paster Fob 296 / 274 / 194 Регистрация: 03.05.2012 Сообщений: 570
	16.05.2012, 19:50	11
	Сообщение от masa1 Paster Fob, можно в excel?) можно http://rghost.ru/38118954 0

@masa1 2 / 2 / 0 Регистрация: 28.04.2012 Сообщений: 52
	24.05.2012, 21:21 [ТС]	12
	КонецСвета, для решения задачи нужно провести сортировку массмива и вывести преобразованный массив на экран с помощью команды : for i:=1 to n do; write(a[i]:3)' 0

@masa1 2 / 2 / 0 Регистрация: 28.04.2012 Сообщений: 52
	28.05.2012, 16:17 [ТС]	16
	ermolay, тут сортировка не обязательна? 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	28.05.2012, 17:05	17
	Сообщение от masa1 тут сортировка не обязательна? тут мы берем массив и сортируем его так, как того требует задание.. то есть тут мы применяем свою собственную сортировку.. 0

@masa1 2 / 2 / 0 Регистрация: 28.04.2012 Сообщений: 52
	29.05.2012, 21:34 [ТС]	18
	ermolay, это в какой части? 0

@Denis3961 1 / 1 / 0 Регистрация: 21.09.2015 Сообщений: 79
	21.09.2015, 09:29	20
	А можно эту же задачу только с условными оператороми 0