Advertisement
Guest User

Untitled

a guest
May 26th, 2018
196
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Masiv;
  2. var N: array [1..12] of real;
  3. var M: array [1..12] of real;
  4. var i:integer;
  5. begin
  6. for i:=1 to 12 do
  7. begin
  8. N[i]:= i*2;
  9. M[i]:=i*3;
  10. write ('N' '[' + i+'] = ' + N[i] + ' ;');
  11. writeln ('M' '[' + i+'] = ' + M[i] + '.');
  12. end
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement