Как исправить некорректную работу с else?

Question

[Fox 777]

Program qwert;
const n=12;
var
A : array [1..N] of integer;
i : integer;
b : integer;
begin
for i := 1 to N do
begin
A[i] := random (30) - 20;
b := ( A[i]);
if b < 0 then
  begin
  b := 0;
  writeLn ('A[', i, '] = ', b);
  else  b >= 0 then
    writeLn ('A[', i, '] = ', b);
  end;
end.

Жалуется на не наличие оператора

Answer 1

[ayazer]

синтаксически конструкция должна быть

if условие then
begin
 ....
end
else if условие2 then
begin
  ...
end;

у вас же

else b <= 0 then

находится внутри первого блока if. потому компилятор и ругается. Имея только тут код что сейчас в вопросе - могу предположить что вы что-то такое пытаетесь написать (это странно с точки зрения логики т.к. второй блок будет выполнятся только если b = 0, но имеем что имеем)

Program qwert;
const n=12;
var
A : array [1..N] of integer;
i : integer;
b : integer;
begin
for i := 1 to N do
begin
    A[i] := random (30) - 20;
    b := ( A[i]);
    if b < 0 then
    begin
        b := 0;
        writeLn ('A[', i, '] = ', b);
    end
    else if b <= 0 then
        writeLn ('A[', i, '] = ', b);
    end;    
end.

Comments

[Fox 777]

тоже самое

[ayazer]

Fox 777, значит ошибок тут больше одной. показывайте текст ошибки от компилятора

[Fox 777]

1.pas(16) : Встречено 'else', а ожидался оператор

[ayazer]

Fox 777, обновил ответ

[Fox 777]

спасибо, я тоже немного затупил))) написал b<=0 вместо b>=0