Website and domain for sale: mail@discussmain.com

Napissat the program which defines the maximum number from the sequence of polozhiktelny numbers entered from the keyboard (length of the sequence is not limited). (Cycle Whil or Repeat) Definition of the maximum number of the sequence of positive numbers. You enter numbers into a line through a gap. For completion of input enter zero.-> 56 - & gt; 75 - & gt; 43 - & gt; About the Maximum number: 75.

105
Var A, M: integer; Begin M: = 0; Repeat Read (A); if A> M then M: = A; Until A = 0; WriteLn (Max =, M) End.
343
Answer add