Версия для печати темы

Автор: якуб 18.10.2005 22:32

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

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.

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

Автор: klem4 18.10.2005 22:52

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

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.

Автор: якуб 18.10.2005 23:34

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

Автор: Guest 19.10.2005 23:20

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

Автор: klem4 19.10.2005 23:29

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

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

Автор: volvo 19.10.2005 23:35

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

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

Автор: якуб 19.10.2005 23:36

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

Автор: volvo 19.10.2005 23:38

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

Автор: якуб 19.10.2005 23:42

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

Автор: klem4 19.10.2005 23:43

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

Автор: volvo 19.10.2005 23:44

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

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