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

Ответы 2

  • (21)-10; что означает?
  • Var A:array[1..15] of integer;i:integer;BeginFor 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.
    • Автор:

      brucetwml
    • 4 года назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years