- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
For i:=1 to 70 do
Begin
a[i]:=random(9);
if a[i] div 2 = 0 then
a[i]:=a[i]
else begin
a[i]:=0;
i:=i-1;
end;
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+139
For i:=1 to 70 do
Begin
a[i]:=random(9);
if a[i] div 2 = 0 then
a[i]:=a[i]
else begin
a[i]:=0;
i:=i-1;
end;
end;
Одноклассница поразила.
Задача - заполнить массив из 70 элементов чётными числами [1..8]
Над блонидинками конечно неприлично шутить, но...
Чем был хуже простой a[i]:=random(5)*2;
Школьник детектед.
А код в раздел Delphi надо бы...
Так что топикстартер неправ, нужно
a[i]=(random(4)+1)*2;
Я о том, что зачем в качестве начала отрезка указывать 1, если по факту минимально возможным четным числом тут будет 2.
Внутри цикла? Такое пропускает только древний компилятор ТП.
0 - Чётное. Остаток от деления - 0
Школьник. А вы не были школьником, уважаемый Govnocoder#0xFF?
Школьники ведь тоже разные бывают, как и кодеры, собственно.