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

@Павел 1990 · Регистрация: 31.10.2014

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

@vint-81 · 01.11.2014, 00:38

Pascal

const n=10;
var a:array[1..n]of integer;
    i,j,k,q:integer;
begin
    for i:=1 to n do
     begin
      a[i]:=-5+random(11);
      write(a[i],' ')
     end;
     writeln;
     j:=1;i:=2;
     while i<=n do
      begin
       if (a[i]>0)
        then 
         begin
          inc(j);
          q:=a[i];
          for k:=i downto j do a[k]:=a[k-1];
          a[j-1]:=q;
         end;
        inc(i,2)
       end;
      for i:=1 to n do write(a[i],' ')
end.

@Павел 1990 0 / 0 / 0 Регистрация: 31.10.2014 Сообщений: 7
		1
	Все положительные элементы массива, имеющие четный порядковый номер, переписать в начало массива 01.11.2014, 00:00. Показов 2310. Ответов 1 Метки нет (Все метки) В одномерном массивеA=(a1, а2, ..., а n) все положительные элементы, имеющие четный порядковый номер, переписать в начало массива. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение