Написать программу заполняющую целочисленный массив из 10 элементов чтобы с 1 по 5 были...

Question

Написать программу заполняющую целочисленный массив из 10 элементов чтобы с 1 по 5 были положительными а с 6 по 10 отрицательными

Answer 1

Program Zadacha;
Var a: Array [1..10] of Integer;
i: Integer;
Begin
Randomize;
For i := 1 To 5 Do
a[i] := Random(10);
For i := 6 To 10 Do
a[i] := Random(10) - 10;
WriteLn('Результат:');
For i := 1 To 10 Do
WriteLn(a[i]);
ReadLn;
End.

Answer 2

Program task;
var i:longint;
a:array [0..1000] of longint;

begin
for i:=1 to 5 do
a[i]:=random(100);

for i:=6 to 10 do
a[i]:=random(100) - 100;

end.

Comments

a:array [0..1000] of longint, а дальше for i:=1 to 5 do и for i:=6 to 10 do? Зачем?)

---

привычка олимпиадного программирования - не экономить память, если это позволимо при данных условиях ограничения памяти и тайминга тестов (равно как и использование longint/int64/long long), в данном случае погоды никакой, ибо вряд ли автор будет использовать прогу на компе с 2 мб оперативки для теста:)

---

Зачем создавать массив размерностью в 1000, если вы используете только 10 ячеек? Никак понять не могу...

---

привычка, товарищ, просто привычка. при более сложных прогах может легко возникнуть переполнение (к примеру, в задачах на буферизацию или на сортировку), поэтому запас в массиве никогда не помешает. а поскольку возможности есть - отчего бы запасик не сделать в 990 ячеек? ;) хуже от этого точно не будет. а если понадобится переделывать прогу под какие-то другие условия - в большинстве случаев массив уже подработан под другие условия.

---

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

---

Не знаю, у меня никогда таких проблем не возникало, и хотя, как вы сказали, мы живем мире относительно неограниченных ресурсов памяти, но злоупотреблять этим не хорошо, нужно учится экономить. Это мое мнение, может у вас другое :)

---

там экономия-то - дай бог 5 мб памяти ;)