массивчик

[hartman]

Даны: натуральное число n, действительные числа а1, а2 .... аn.
Получить: max{-a1, a2, -a3, a4, -a5, a6........(-1)n an}.
напишите решение через паскаль пожалуйста

[kuy]

вроди так:

var M : array[1..99] of integer; 
    n, max, i :  integer; 
begin
  write('Input n: ');
  readln(n); 
  max:=1;  
  for i := 1 to n do
    begin 
      write('a', i, ': ');
      readln(M[i]);
      if (i mod 2=1)and(M[max]<M[i])then max:=i;
    end;
writeln('max:',M[max]);
readln;
end.

[unbanned]

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

вроди так:

а почему ты сравниваешь только нечетные элементы?

тогда уже так

var
  M: array[1..99] of integer;
  n, max, i: integer;

begin
  write('Input n: ');
  readln(n);
  max := 1;
  for i := 1 to n do
  begin
    write('a', i, ': ');
    readln(M[i]);
    if odd(i) then
    begin
      if M[max] < M[i] * (-1) then
        max := i;
    end
    else if M[max] < M[i] then
      max := i;
  end;
  writeln('max:', M[max]);
  readln;
end.

условие тут походу такое:
в массиве вида (-a1, a2, -a3, a4, -a5, a6........(-1)^n*an)
найти максимальный элемент

[kuy]

Сори, фрагмент просто со своей программы брал и неправильно условие прочитал: (max{-a1, a2, -a3, a4, -a5, a6........(-1)n an})