• Перепишите программу на Паскале, исправив ошибки:

    Program massiv;

    Var a:array(-10..10) of integer;

    Begin

     For i:=1 to 20 Do

       Read(a[i]);

     For i:=1 to 20 Do

      a[i]:=a[i]/10;

    For i:=1 to 20 Do

      Write(a[i])

    End.  

Ответы 0

  • Добавить свой ответ

Войти через Google

или

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

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

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