Advertisement
Guest User

Untitled

a guest
Apr 6th, 2020
174
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.25 KB | None | 0 0
  1. program n3_2;
  2. begin
  3.   var n,i,x,ans,max: integer;
  4.   println('amount of numbers');
  5.   readln(n);
  6.   for i:=1 to n do begin
  7.     readln(x);
  8.     if(x>0) then ans += 1
  9.     else ans := 0;
  10.     if(ans>max) then max := ans
  11.   end;
  12.   println(max);
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement