Vitalii Polishchuk

Аналогичное по цене будет аналогичным по качеству (не просто так же уходите? :)).

Вашему сайту хватит с лихвой VPS 380 Мб памяти.

den78ru, http://habrahabr.ru/blogs/hosting/91466/

bloodflood, все уже написано до вас

http://www.google.com/search?hl=ru&safe=off&client=opera&hs=EIq&rls=ru&q=luckhost+site%3Aforum.searchengines.ru&aq=f&aqi=&aql=&oq=&gs_rfai=

и т.д. по списку

/ru/forum/comment/6768015

Они ясно сказали что никого не пустять :)

serv5msk, везде можно.

главное подольше темку апайте 😂

Поправилъ :)

Но не помню как рандомно выбирать из отрицательных чисел тоже (без извращений) .

KM.UA добавил 04.06.2010 в 01:21

А, все-таки вспомнил как делали.

Сколько?

Про отрицательные числа да, упустил момент.

var

E:array [1..31] of integer;

T:array [1..31] of integer;

snow, rain:integer;

I:integer;

begin



snow:=0;

rain:=0;



randomize;



for i:=1 to 31 do

 begin

  E:=random(5);

  T:=random(20) - 10;

 end;



for i:=1 to 31 do

 begin

  write (E, ' ');

 end;

writeln;

for i:=1 to 31 do

 begin

  write (T, ' ');

 end;



for i:=1 to 31 do

 begin

  if T > 0 then rain:=rain+E else snow:=snow+E;

 end;



 writeln('RAIN: ', rain);

 writeln('SNOW: ', snow);



readln;



end.