• Программа заполнения массива из 100 чисел случайными значениями из диапазоа от -20 до 20.  (паскаль)

Ответы 1

  • const

      n = 100;

    var

      a:array[1..100] of integer;

      i:integer;

    begin

      randomize;

      for i := 1 to n do

      begin

        a[i] := random(41) - 20;

        write(a[i], ' ');

      end;

      writeln;

    end.

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

Еще вопросы

Войти через Google

или

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

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

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