Задачки

[Юлькаа]

Помогите плиз

1) Дан массив из N элементов. Написать программу, выводящую на экран все элементы массива, стоящие на чётных местах, а затем - все элементы массива, стоящие на нечетных местах.

2)Дан масив из N чисел. N - четное. Написать программу, меняющую местами элементы с четными и нечетными номерами.

3) Дан массив из N целых чисел. Написать программу, определяющую, есть ли в массиве два соседних положительных элемента. Если есть, то вывести индекс первого элемента, входящего в первую пару.

4) Дан массив из N ненулевых чисел. Написать программу, определяющую сколько раз меняется знак элементов массива при его просмотре. Например, в массиве -5, -4, 6, -1, 7 знак меняется три раза.

[Вадим Мошев]

Я решу. 20 рублей за задачу на счёт мобильного телефона. Вы согласны?

[VIK_aka_TOR]

1) сделан ввод через рандом, думаю подправите если нужен ручной...

var
a: array [1..100] of integer;
n,i : integer;
begin
    write('Введите n ');
    readln(n);
    writeln('Изначальный массив: ');
    for i:=1 to n do
        begin
            a[i]:=random(50);
            writeln('a[',i,']=',a[i]);
        end;
 writeln('На четных местах: ');
 for i:=1 to n do
     if (i mod 2) = 0 then
        writeln('a[',i,']=',a[i]);
 writeln('На нечетных местах: ');
  for i:=1 to n do
     if (i mod 2) = 1 then
        writeln('a[',i,']=',a[i]);
end.

2) так же рандомный ввод...

var
a: array [1..100] of integer;
n,i, buf : integer;
begin
    write('Введите n ');
    readln(n);
    writeln('Изначальный массив: ');
    for i:=1 to n do
        begin
            a[i]:=random(50);
            writeln('a[',i,']=',a[i]);
        end;
    writeln('Измененный массив');
     for i:=1 to n div 2 do
        begin
          buf:=a[i*2];
          a[i*2]:=a[i*2-1];
          a[i*2-1]:=buf;
          writeln('a[',i*2-1,']=',a[i*2-1]);
          writeln('a[',i*2,']=',a[i*2]);
        end;
end.