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

[якуб]

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

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 19:01

[klem4]

За то что хотябы попытался сделать держи правильное решение, у тебя что-то не очень похоже :

uses crt;
var
   x : array[1..30] of integer;

   i, n, nmax : byte;

Begin

   clrscr;

   write('n='); readln(n);

   nmax := 0;

   for i := 1 to n do begin

      write('x[',i,']=');

      readln(x[i]);

      if (x[i]<0) and ((nmax=0)or(x[i]>x[nmax])) then
       nmax := i;
   end;

   if nmax = 0 then
    writeln('No')
   else writeln('nmax=',nmax,'  x[',nmax,']=', x[nmax]);

   readln;

End.

Сообщение отредактировано: klem4 - 18.10.2005 18:52