Var
i, n: integer;
q, q_temp, q_below_1: string;
x, max_below_1: real;
tr: boolean;
Begin
max_below_1:=0;
writeln('Введите количество чисел');
readln(n);
for i:=1 to N do begin
write('Введите '); write(i); writeln(' число');
readln(x);
if x >= 1.0 then
tr:=true;
str(i,q_temp);
q:=q + q_temp + ' '
else if (tr <> true) and (x > max_below_1) then //Ошибка здесь.Что не так?
str(i,q_below_1);
end;
if tr=false
then write(q_below_1)
else write(q)
end.
1 ответ
for i:=1 to N do begin
write('Введите '); write(i); writeln(' число');
readln(x);
if x >= 1.0 then begin // !!
tr:=true;
str(i,q_temp);
q:=q + q_temp + ' ';
end // !!
else if (tr <> true) and (x > max_below_1) then
P.S. Как сапожник из пушкинского стихотворения, позволю себе дать совет: ставьте begin
/end
в начало строк ограничивающих блок кода.
for i := 1 to N do
begin
WriteLn('Введите ', i, ' число');
ReadLn(x);
if x >= 1.0 then
begin
tr := true;
Str(i, q_temp);
q := q + q_temp + ' ';
end
else if (tr <> true) and (x > max_below_1) then
...
end;
-
-
-
@vp_arth не перед
else
- одно из милых правил Паскаля– user1762624 мая 2018 в 17:47 -
1
-
Если написать
end else ...
, то это правило становится вполне очевидным. Вы же передthen
иdo
его тоже не ставите.– Alekcvp5 мая 2018 в 12:49
if then