Найти максимальное число в последовательности

[vladoscom93]

Вводится последовательность N целых чисел. Найти максимальное положительное число.(без использования массивов только циклы)

[p51x]

И? Проблема в чем?

[vladoscom93]

я по болезни циклы пропустил и в голову вообще ничего не лезет... не знаю как решить

[vladoscom93]

я не знаю как ввести тут последовательность без массива... Впринципе можно запустить цикл for с задаваемым N, но тогда смысл искать ПОЛОЖИТЕЛЬНОЕ так как они будут все положительные... Сильно не ругайте я в циклах очень слаб

[Pein95]

Program kj;
var i,a,b,n:integer;
begin
readln(n);
b:=0;
for i:=1 to n do
begin
readln(a);
if a>b then b:=a;
end;
writeln(b);
end.

[Pein95]

не проверял но вроде так

[andrewpalkin]

Сообщение от vladoscom93

я по болезни циклы пропустил и в голову вообще ничего не лезет... не знаю как решить

Когда что-то пропускают , то потом учат самостоятельно , беря лекции у друзей

[vladoscom93]

обязательно возьму, но сдавать то работу завтра уже...(((

[vladoscom93]

Сообщение от Pein95

Program kj;
var i,a,b,n:integer;
begin
readln(n);
b:=0;
for i:=1 to n do
begin
readln(a);
if a>b then b:=a;
end;
writeln(b);
end.

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

[andrewpalkin]

Сообщение от vladoscom93

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

Ну вот здесь ты не прав , здесь числа вводятся с клавиатуры , значит они не все положительны , а только то , что ты введешь

Ты программу то запускал эту ?