Вводится произвольная последовательность целых чисел.найти наибольшее из всех чисел.
Ответы на вопрос
Ответил Sky09
0
На паскале
---
uses crt;
var a,b,max: integer;
begin
writeln('Вводите последовательность. Окончание последовательности - 0.');
readln(a);
max:=a;
while a<>0 do begin
if (a>max) then max:=a;
readln(a);
end;
writeln('Наибольшее число последовательности: ',max);
end.
---
uses crt;
var a,b,max: integer;
begin
writeln('Вводите последовательность. Окончание последовательности - 0.');
readln(a);
max:=a;
while a<>0 do begin
if (a>max) then max:=a;
readln(a);
end;
writeln('Наибольшее число последовательности: ',max);
end.
Ответил Sky09
0
Да блин, у меня все время в голове переклинивает, что если отрицательные, то должно быть вещественным...хах) с нулем проблему решила.
Ответил Аноним
0
Это тебе кажется, что ты ее решила.. Спорим тебе такой код не нравится? Перепиши! Или while или свой repeat красивее сделай.. Зачем тебе этот костыль в развилке?
Новые вопросы