Вводится последовательность ненулевых чисел, 0 – конец последовательности. Определить наибольшее число в последовательности.
Answers & Comments
vladmor
Var a,max:integer; begin max:=0; repeat readln(a); if a>max then max:=a; until a=0; writeln('max: ',max); end.
Вариант с циклом while
var a,max:integer; begin writeln('Введите число: '); readln(a); max:=a; while a<>0 do begin writeln('Введите число: '); readln(a); if a>max then max:=a; end; writeln('max: ',max); end.
2 votes Thanks 1
vladmor
Только вот Ваш ответ здесь появился позже. Так кто тут накопировал?
vladmor
Я понимаю, что первое решение работает на ряде положительных чисел, но надо как-то заставить учащихся не просто копировать наши решения, а еще проверять и обдумывать. А ваши ахххххх этому процессу немного помогут
Answers & Comments
begin
max:=0;
repeat
readln(a);
if a>max then max:=a;
until a=0;
writeln('max: ',max);
end.
Вариант с циклом while
var a,max:integer;
begin
writeln('Введите число: ');
readln(a); max:=a;
while a<>0 do begin
writeln('Введите число: ');
readln(a);
if a>max then max:=a;
end;
writeln('max: ',max);
end.