Website and domain for sale:

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.

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