Question

Помогите с 7-мым,пожалуйста

Answer 1

Предполагается, что будет введено минимум одно значение.
 
varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a > max) and (a <> 0) thenmax := a;until a = 0;writeln(max);readln;end.
 
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
 
Подробнее - на Znanija.com - https://znanija.com/task/1506362#readmore

Answer 2

Предполагается, что будет введено минимум одно значение.

 

var
max,a : integer;
begin
readln(a);
max := a;
repeat
readln(a);
if (a > max) and (a <> 0) then
max := a;
until a = 0;
writeln(max);
readln;
end.

 

P.S. Если понравилось решение не забудь отметить как лучшше. ;)