Версия для печати темы

Автор: karrkush 20.10.2012, 21:53

нахождение максимального отрицательного значения в последовательности вводимых произвольных (как вопросительных, так и отрицательных) чисел. Остановить обработку при вводе заказанного количества чисел

Автор: tig81 20.10.2012, 22:00

Что делали? Что не получается?

Автор: граф Монте-Кристо 21.10.2012, 12:40

Про восклицательные числа слышал (4!), а вот вопросительные - это какие?

Автор: Vitvitkii Ivan 17.3.2013, 15:46

думаю что это будет полезным хотя я на ошибки не проверял


uses crt;
var c,max,pk: real;
n,ko,nmax: integer;

begin
write('Укажите признак конца (любое число): '); readln(pk);
repeat
inc(n);
write('-->'); readln©;
if (ko=0) and (c<0) and (c<>pk) then
begin
max:=c;
nmax:=n;
ko:=1;
end else
if (ko>0) and (c<0) and (c>max) and (c<>pk) then
begin
max:=c;
nmax:=n;
end;
until c=pk;
if ko=0 then writeln('Нет отрицательных чисел') else
writeln('Максимальное отрицательное =',max:0:3,' под номером ',nmax);
readln;
end.