Массивы одномерные

[toni4112]

Пусть А - одномерный массив N целых чисел:

а) Поменять местами минимальный по модулю элемент и максимальный отрицательный элемент.

б) Проверить, является ли шестой четный элемент положительным, а если такого элемента нет - вывести сообщение.

в) Исключить из массива все нулевые элементы.

Помогите, пожалуйста, с решением и, если возможно, с комментариями.
Заранее спасибо

[Mad_Cat]

Помогите, пожалуйста, с решением

язык укажи сначала

[toni4112]

Извиняюсь, язык- паскаль

[Землянин]

Язык Си подойдет? Синтаксис сие понимаешь?

[Hacker19_90]

#a

min := 1;
max := 0;
for i := 1 to n do
begin
  if abs(a[min]) > abs(a[i]) then min := i;
  if a[i] < 0 then
    if max = 0 then max := i
    else if a[max] < a[i] then max := i;
end;
if min <> max then
begin
  a[max] := a[max] xor a[min];
  a[min] := a[max] xor a[min];
  a[max] := a[max] xor a[min];
end;

#b
О БОЖЕ Я ЗАДАНИЕ НЕ ПРОЧИТАЛ ХЕХЕ
СОРИ!!!

  num := 0;
  for i := 1 to n do
  begin
    if not(odd(a[i])) then Inc(count);
    if count = 6 then
    begin 
      if a[i] > 0 then ('ПОЛОЖИТЕЛЬНЫЙ')
      else WriteLn('Отрицательный или ноль');
      break;
    end; 
  end;
  if count < 6 then WriteLn ('НЕ НАЙДЕН')

#c
Статика

k := 1;
while k <= n do
begin
  for i := 1 to n do 
    if a[i] = 0 then 
    begin
      a[i] := a[i] xor a[n];
      a[i] := a[i] xor a[n];
      a[i] := a[i] xor a[n];
      Dec(n);
      break;
    end;
  Inc(k);
end;

коряво но вроде должно работать

[Poma][a]

begin
     ReadLn (n);

     for i := 1 to n do
         ReadLn (a[i]);

     count := 0;
     i := 1;
     repeat
           if not Odd (a[i]) then
                 Inc (count);
           Inc (a[i]);
     until (i = n) or  (count = 6);

     if count <> 6 then
              WriteLn ('This elem does not exist')
     else
          if a[i] > 0 then
              WriteLn ('YES')
          else
              WriteLn ('NO')
end.

[TinMan]

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

Извиняюсь, язык- паскаль

А зачем извиняться??
Пусть они извиняются, что спрашивают язык в разделе Паскаль и что постят решения на других языках тут.. Куда смотрят модераторы..

[toni4112]

Короче ни одного решения не понял(((
спасибо

[TinMan]

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

Короче ни одного решения не понял(((
спасибо

Ромаха дал тебе решение пункта б). Правда, он ошибся в одной строке. Нужно не так:

           Inc (a[i]);

, а вот так:

           Inc (i);

Все остальное вроде верно.

Задачу а) можно сделать как-то так..

  ...  // описания переменных и ввод массива напиши сам
  MinAbs:= 1;
  MaxNeg:= 0;
  for i:=1 to n do begin
    if Abs(a[i])<Abs(a[MinAbs]) then MinAbs:= i;
    if (a[i]<0) then begin
      if MaxNeg=0 then MaxNeg:= i;
      if a[i]>a[MaxNeg] then MaxNeg:=i
    end
  end;
  writeln('number with minimal absolute value is ',a[MinAbs],', achieved at i=',MinAbs);
  writeln('maximum of negative numbers is',a[MaxNeg],', acieved at i=',MaxNeg);
  readln
end.

[Poma][a]

Да, да, сори проглядел, мой косяк....