Чтобы 2 минимальных выводилось напиши так:
if min>ch and (ch0) then begin
min1:=min;
min:=ch;
end;
Ну и потом:
writeln(min, min1);
Синтаксис уже не помню...
Таким образом, если вводишь меньше, чем мин, то в мин1 запоминается предыдущее минимальное число, а в мин нынешнее..
1 вопрос этот код в цыкл?
2 констатация факта: выводит мне значение 0!!! а недолжно!!!
Раздел: Программирование, ответов: 24, последний комментарий: 13.09.2010 23:16