В одномерном массиве А=(а1,а2...аn) все положительные элементы, имеющие чётный порядковый номер

@ramos1337 · Регистрация: 01.10.2011

Помогите плиз написать программу:
В одномерном массиве А=(а1,а2...аn) все положительные элементы, имеющие чётный порядковый номер, переписать в начало массива.

@!.Ap0$T0L.! · 05.10.2011, 19:53

Pascal

var a,b :array [1..10000] of longint;
  n,m,i,j,l:longint;
begin
  readln(n);
  for i:=1 to n do
  read(a[i]);
  for i:=1 to n do
  begin
   if a[i]>0 then
   if i mod 2 = 0 then
   begin
   inc(l);
     b[l]:=a[i];
    end;
  end;
  for i:=1 to l-1 do
   write(b[i],' ');
   writeln(b[l]);
end.

так те надо ?

@ramos1337 0 / 0 / 0 Регистрация: 01.10.2011 Сообщений: 29
		1
	В одномерном массиве А=(а1,а2...аn) все положительные элементы, имеющие чётный порядковый номер 05.10.2011, 19:24. Показов 2777. Ответов 1 Метки нет (Все метки) Помогите плиз написать программу: В одномерном массиве А=(а1,а2...аn) все положительные элементы, имеющие чётный порядковый номер, переписать в начало массива. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

В одномерном массиве А=(а1,а2...аn) все положительные элементы, имеющие чётный порядковый номер

Решение