• ЗАДАЧА НА ПРОГРАММИРОВАНИЕ PASCAL ПО МАССИВАМ.

    Заполнение массива случайными числами.

    Ход выполнения:
    а) Наберите программу

    program Pr2;
    Var Mas: array[1..100] of integer;
    n, i: integer;
    begin
    randomize;
    Writeln('введите размер массива');
    Readln(n);
    For i:=1 to n do
    begin
    mas{i}:=-5+random(15);
    write(mas{i}, ' ');
    end;
    end.

    б) Измените программу, чтоб числа подбирались случайным образом в диапазоне от 0 до 20

Ответы 1

  • var

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

       n, i: integer;

    begin

       randomize;

       Writeln('введите размер массива');

       Readln(n);

       for i := 1 to n do

       begin

           mas[i] := random(20 - 0 + 1) + 0;

           write(mas[i], ' ');

       end;

    end.

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

Войти через Google

или

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

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

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