Advertisement
Guest User

Untitled

a guest
Jan 17th, 2019
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.24 KB | None | 0 0
  1. var
  2. a : array[1..100] of longint;
  3. i,k,max,m,n,min : longint;
  4. pip : boolean;
  5. begin
  6. readln(k);
  7. for i:=1 to k do readln(a[i]);
  8. for i:=1 to k do
  9. if i=0 then begin
  10. a[i]:=5;
  11. for i:=1 to k do writeln(a[i]);
  12. end;
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement