Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program newmasiv;
- Var R: array[1..100] of integer;
- T: array[1..100] of integer;
- U: array[1..100] of integer;
- a,n, i, k, kol: integer;
- Begin
- kol:=0;
- k:=0;
- write ('n=');
- readln (n);
- For i:=1 to n do
- begin
- if i mod 2=0 then
- begin
- T[k] = R[i];
- k:=k+1;
- end;
- if i mod 2<>0 then
- begin
- U[a] = R[i];
- a:=a+1;
- end;
- end;
- For i:=1 to k do
- begin
- writeln('T[',i,']=',T[i]);
- end
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement