GAECHKA
Твоя помощница в решении задач

Как закрыть столько else c участием меток

Ругается на второй else, просит ; но когда ставишь ; он просит оператора. прошу подсказать в чем моя ошибка
const
m = 1000; // Для задания максимального размера массива.

LABEL M1,M2;
var
n, i, k, j: integer;
x: array[1..m] of integer;

begin
read(n); // Задаем размер массива.
for i := 1 to n do begin
write ('Введите x[',i,']='); //вывести на экран введите x[i]=
read(x[i]); // Заполняем массив.
end;
k:=0;
j:=1;
M1:if j<=n then //1
if x[j]=0 then //2
k:=k+1;
if k>4 then //3
for i:= j to n-k do
x[i]:=x[i+1]
else GOTO M2; //3
else j:=j+1 and GOTO M1; //2
else GOTO M2; //1
M2:for j:= 1 to n-k do
writeln('x[i]=',x[i]);
end.
Как закрыть столько else c участием меток
0
вопрос задан

Источник


1 ответ
Используй операторные скобки и будет работать