работа с одномерным массивом, нахождение максимума Опции

[якуб]

Вводится длина одномерного массива, состоящего из целых чисел,
и его элементы,найти позицию первого максимума среди
отрицательных чисел.

var A :array [1..100] of integer ;
    I,N,max,N max:integer;
 Begin
  read(N);
 For I:=1 to N  do
  read(A[I]);
   max :=0;
 for I:=1to N do
 if A[I]< max then
  max:=A[I];
 for I:=1 to N do
  if (A[I]<0) and (A[I]> max )then
 Begin
 max:=A[I];
 N max:=I;
 end;
 for I:=1 to N do
 write(A[I]);
 write(N max);
 end.

проверьте пожалуста задачку
используем теги для офорлмения кода!!!

Сообщение отредактировано: Altair - 18.10.2005 23:01