Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Masiv;
- var N: array [1..12] of real;
- var M: array [1..12] of real;
- var i:integer;
- begin
- for i:=1 to 12 do
- begin
- N[i]:= i*2;
- M[i]:=i*3;
- write ('N' '[' + i+'] = ' + N[i] + ' ;');
- writeln ('M' '[' + i+'] = ' + M[i] + '.');
- end
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement