Составьте программу,которая формирует массив из 10 случайных чисел,принадлежащих...

Question

Составьте программу,которая формирует массив из 10 случайных чисел,принадлежащих промежутку [-9;9] , и выводит эти числа в столбец.

Comments

очень срочно)пожалуйста)

---

в паскале?

---

да

Answer 1

Const
  n = 10;

var
  x: array[1..n] of integer;
  i: integer;

begin
  Randomize;
  Writeln('Элементы массива:');
  for i := 1 to n do
  begin
    x[i] := Random(19) - 9;
    Writeln(x[i])
  end
end.

Тестовое решение:

Элементы массива:
-9
0
-3
4
3
9
-7
9
6
-6

Answer 2

Program zz;
var a:array[1..10] of integer;     
i:integer;
begin 
for i:=1 to 10 do 
a[i]:=random(19)-9; 
for i:=1 to 10 do 
writeln(a[i]);
end.

Comments

спасибо)

---

У Вас диапазон будет [-9..7]

---

Теперь уже диапазон [-9..9]

---

a[i]:= random(b-a+1)+a

---

a[i]:= random(9-(-9)+1)+9

---

a[i]:=random(19)+9

---

Блин, a равно не 9,а -9

---

Значит a[i]:=random(19)-9