|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Цитата:
Забыл, что 20й итем не может быть больше 100? Код:
procedure TForm1.Button1Click(Sender: TObject); label beg; var A : Array [1..20] Of Integer; I : Integer; S : Integer; int:integer; begin int:=0; beg: int:=int+1; S := 0; For I := 1 To 19 Do Begin A[i] := Random(100)+1; S := S + A[i]; End; If (S < 1200 - 1)and(1200-s<=100) Then A[20] := 1200 - S Else goto beg; ListBox1.Clear; For I := 1 To 20 Do Begin ListBox1.Items.Add(IntToStr(A[i])); End; showmessage(inttostr(int)); end; Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 03.04.2009 в 21:55. |
#17
|
|||
|
|||
Цитата:
Почему не может? Где ограничение? В исходной задачи на значение каждого элемента только одно ограничение: A[i] > 0. По максимальному значению ограничения нету. |
#18
|
||||
|
||||
Ой... это я из другой темы приполз... сорри.
хотя, логично, что если генерировать числа от 1 до 100, то и последнее должно быть в этих приделах. а то у меня по твоему генератору последнее и 400+ выползало... Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 03.04.2009 в 21:54. |