Advertisement
Varvara_Golovnova

Untitled

Sep 15th, 2024
23
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. var
  2. a : array [1..1000] of longint;
  3. n,sum,i : longint;
  4. begin
  5. readln(n);
  6. for i:=1 to n do
  7. readln(a[i]);
  8. sum:=0;
  9. for i:=1 to n do
  10. if a[i]=0 then
  11. sum:=sum+1;
  12. writeln(a[i]);
  13. writeln('5');
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement