Кто нибудь поделитесь общим аккаунтом для xbox 360 с играми​ если не трудно: )

Выбор профессии очень важен, так как работа должна приносить прибыль, удовлетворяющую потребностям человека, и работая, человек должен чувствовать, что занимается тем, чем хочет, а не тем, чем вынужден.

Мой выбор – IT-специалист.

IT-специалист – профессия очень востребованная и нужная. Многие предприятия заканчивают свое существование без этих сотрудников.

IT-специалисты нужны в любой компании, независимо от масштаба деятельности. Сейчас эта профессия очень востребована, так как в России появляется много заграничных фирм.

Многие в недоумении от моего выбора профессии.

В нашем городе все привыкли к тому, что выпускники наших школ выбирают довольно типичные профессии, такие как врач, парикмахер, риэлтор, адвокат, учитель, бухгалтер и другие. Более того, многие и не подозревают о существовании более интересных профессий, связанных с различными сферами деятельности. Конечно, все перечисленные мной профессии незаменимы в нашей жизни, но, если человек хорошо окончил школу, почему бы не попытаться попробовать свои силы в профессиях более тяжелых умственных ?

Так я и собираюсь поступить.

Возможно, мой выбор многим не понятен, но он мой. Никто не в праве решать за меня, кем я должна работать. Мои родители довольны моим выбором профессии.

Я считаю, что каждый должен выбирать то, что ему близко.

Мне близка работа с компьютером.

Во-первых, компьютер в современном мире – незаменимая вещь, без которой уже трудно жить.

Во-вторых, сейчас не много людей, которые могут профессионально работать с компьютером.

И если очень стараться, то можно многого добиться в жизни.

Она у нас одна, и не стоит растрачивать время, отведенное на жизнь, просто так

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.