12.01.2008, 11:55
|
#5 (permalink)
|
|
Member
Регистрация: 12.01.2008
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
задача 2.
var
a, max:longint;
begin
mas:=-1;
a:=-1;
while a<>0 do begin
read(a);
if a = 0 then break;
if a>max then max:=a;
end;
writeln(max);
end.
|
|
|