Дан массив, размерность 15. Элементы, кратные 3, увеличить в 2 раза. Нужно в Паскале...

Question

Дан массив, размерность 15. Элементы, кратные 3, увеличить в 2 раза. Нужно в Паскале программу составить, 9 класс.

Comments

МАССИВ ОДНОМЕРНЫЙ

Answer 1

Var A:array[1..15] of integer;
i:integer;
Begin
For i:= 1 to 15 do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    if A[i] mod 3 = 0 then A[i]:=A[i]*2;
    End;
    WriteLn;
For i:= 1 to 15 do
    Write(A[i],' ')
End.

Comments

(21)-10; что означает?

---

большое спасибо Вам, Брикъ! :)

---

"random(21)" - создаёт случайное число в диапазоне от 0 до 20. А дальше из этого числа отнимает 10