Последовательность чисел, 2 наименьших числа Опции

[topoR]

Помогите решить задачу

Вводится последовательность чисел. 0 - конец последовательности. НАйти 2 наименьших числа.

[topoR]

 

program unknown;
uses crt;
var min_1, min_2, n, x: integer;
begin
clrscr;
min_1 := 32767;
min_2 := 32767;
n:=0;

repeat

writeln ('Vvedite chislo');
readln (x);
if (x <> 0) then
Inc(n);
if (x < min_1) then
min_2 := min_1;
min_1 := x;
if (x > min_1) and (x < min_2) then
min_2 := x;


until x=0;
writeln ('Sredi vvedennih', n, 'chisel 2 naimenshih - eto chisla:');
writeln (min_1);
writeln (min_2);
readln;
end.

.

Не работает по-моему (

[Lapp]

Не работает по-моему (

Угу.
Ты забыл расставить операторные скобки, begin и end. Без них после оператора IF выполняется (в случае выполнения условия) только один оператор. Короче, посмотри внимательно, что я добавил..

program Find2min;
uses crt;
var min_1, min_2, n, x: integer;
begin
  clrscr;
  min_1 := 32767;
  min_2 := 32767;
  n:=0;

  repeat
    writeln ('Vvedite chislo');
    readln (x);
    if (x <> 0) then begin
      Inc(n);
      if (x < min_1) then begin
        min_2 := min_1;
        min_1 := x
      end;
      if (x > min_1) and (x < min_2) then min_2 := x
    end
  until x=0;
  writeln ('Sredi vvedennih', n, 'chisel 2 naimenshih - eto chisla:');
  writeln (min_1);
  writeln (min_2);
  readln;
end.

Еще - добавь пару пробелов при выводе результата, а также подумай, что будет, если последовательность будет состоять только из одного числа, а может и совсем пустая (сразу ввели 0).

Еще совет: обрати внимание на форматирование программного текста в моем варианте. Если усвоишь, тебе это поможет. Кстати, тут как раз про begin и end (и не только), то есть про твою ошибку..
Успехов!