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

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.

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

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

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.

спасибо <>!
этикет, сэээр!

программа неправильная, она выдает ошибку! проверь ее пожалуйста

Ошибка в 7 строке.

Послушай, у нас место телепата на форуме вакантно, так что милости просим, а если по делу, какая ошибка ? при каких исходных данных ?

Я бы не стал так утверждать...

Во-первых, КАКУЮ ошибку выдает программа, во-вторых - какие данные вводил? Голословные утверждения НЕ принимаются...

она выдает ошибку :File not found (SISTEM .TRU).

Вот сначала установи себе НОРМАЛЬНО Паскаль, а потом приходи с претензиями.

да ладно не наезжай я то не спец по программам я поэтому к вам и обратился :molitva:

www.pascal.dax.ru в разделе Дистрибутивы скачай себе нормальный BP7 и живи спокойно.

А дело не в программах, а в тех руках, которые их устанавливают...

P.S. Тема плавно переходит во флейм...