Прога на Pascal

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.

Как можно в одной такой простой программе наделать столько ошибок? У Вас отрицательных числе при таком заполнении не будет

Сколько?

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

6 :)

И главное не синтаксические, а ошибки алгоритма :)

Поправилъ :)

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

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

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

Садись, пять :)

Кстати, а кто скажет, как Турбо-Паскаль на Висте запустить? :)

Огромное спасибо за помощь!

А что, не запускается? У меня виста и стоит турбо паскаль.

Качал это http://www.tp7.info/po/turbo_pascal_7_1.exe

На семерке запускается Borland скачанный отсюда http://opita.net/tools