ОЧЕНЬ СРОЧНО! ПОМОГИТЕ С ЗАДАЧЕЙ! Заполните массив из 9 элементов целыми числами из...

Question

ОЧЕНЬ СРОЧНО! ПОМОГИТЕ С ЗАДАЧЕЙ!


Заполните массив из 9 элементов целыми числами из интервала [-15;24] и выведите на экран в строку через ";".

Язык программирования - Pascal

Comments

какой язык программирования?

---

хороший вопрос

Answer 1

const n=9;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do a[i]:=random(40)-15;
for i:=1 to n do write(a[i],';');
end.

Пример:
16;23;-9;-3;5;18;19;0;11;

Answer 2

Var n, i: integer; begin    randomize;
    for i := 1 to 8 do begin        n := random (39) - 15;        write (n,';');    end; n := random (39) - 15;        write (n);end.

Comments

var n, i: integer;

begin
randomize;

for i := 1 to 8 do begin
n := random (39) - 15;
write (n,';');
end;
n := random (39) - 15;
write (n);
end.