Одномерный массив. Найти номер первого отрицательного элемента, который по модулю меньше максимального числа

@Старый · Регистрация: 24.01.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте.
Очень надеюсь на вашу помощь.
Есть задание:Найти номер первого отрицательного элемента, который по модулю меньше максимального числа.
Сам массив задается в программе. Код написан, выдается ошибка 57: THEN expected.
Не могли бы вы помочь найти ее и по возможности исправить. Заранее спасибо.

Pascal

program lab4;
uses crt; 
const n =5;
var a: array [1..n] of integer;
    i,k, nmax: integer;
 
begin
  clrscr;
  a[1]:=34; a[2]:=2; a[3]:=62; a[4]:=-80; a[5]:=-7;
  nmax:=1;
  Writeln(‘danniy massiv’);
for i:= 1 to n do
  write(' a[',i,']= ', a[i]);
  writeln;
for i:= 1 to n do
   begin
   if a[i]>a[nmax] then nmax := i 
   end;
   i:= a[nmax];
for j:= 1 to n do
   begin
   if a[k]<0 and abs(a[k])<nmax then 
   i:=k;
   writeln ('nomer otritsat chisla:', i);  
   readln;    
   end;
End.

@Chertenok_n_13 · 10.11.2014, 21:11

Pascal

program lab4;
uses crt;
const n =5;
var a: array [1..n] of integer;
i,k, nmax,j: integer;
begin
clrscr;
a[1]:=34; a[2]:=2; a[3]:=62; a[4]:=-80; a[5]:=-7;
nmax:=1;
Writeln('danniy massiv');
for i:= 1 to n do
write(a[i]:6);
writeln;
for i:= 1 to n do
begin
if a[i]>a[nmax] then nmax := i
end;
for j:= 1 to n do
begin
if (a[j]<0) and (abs(a[j])<nmax) then begin
i:=j; break;end; end;
writeln ('nomer otritsat chisla:', i);
readln;
End.

ошибка вылезла из-за того, что если используются "and", "or" то каждое условие надо брать в скобки.

if (a[k]<0) and (abs(a[k])<nmax) then i:=k;

@Старый · 10.11.2014, 23:47 **[ТС]**

Спасибо вам огромное.
В методичке этого не упоминалась, теперь буду знать.

Отдельное спасибо за то, что почистили код.

@Старый 2 / 2 / 0 Регистрация: 24.01.2012 Сообщений: 96
	10.11.2014, 23:47 [ТС]	3
	Спасибо вам огромное. В методичке этого не упоминалась, теперь буду знать. Отдельное спасибо за то, что почистили код. 0