Advertisement
Guest User

Untitled

a guest
Jan 20th, 2020
113
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. program n_2;
  2. const n=12;
  3. var c: array [1..n] of integer;
  4. i:integer;
  5. begin
  6. writeln(' èñõîäíûé ìàññèâ');
  7. for i:=1 to n do begin
  8. write ('c[',i,')=');
  9. readln(c[i]);
  10. end;
  11. writeln;
  12. for i:= 1 to n do write (c[i],'');
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement