var ch,min:integer;
begin
writeln('Vvedit riad chisel');
read(ch);
min:=ch;
while ch0 do
begin
read(ch);
if min>ch then min:=ch;
end;
writeln(min);
readln
end.
Подскажите как проверить переменную в цыкле на ноль?
Раздел: Программирование, последний комментарий: 11.09.2010 01:34
Во-первых, ch должен быть массивом.
Во вторых, тебе нужна ещё 1 переменная, которой ты будешь присваиать значение переменной min, если очередной элемент массива будет меньше. Если надо, могу попробовать написать прогу, но не гарантирую отсутствие ошибок, так как давно это учила)