• Где ошибка??

    const n=10;

    type TMas=array[1..n] of integer;

    var mas1:TMas;

    procedure ImputMas1(var masTMas: integer);

    var i: integer;

    begin for i:=1 to 10 do

    begin

    mas1[i]:=random(n);

    Write(mas1[i]:3);

    end;

    end.

Ответы 1

  • Вот так правильно 

    Program Massiv; 

    const n=10;type TMas=array[1..n] of integer;var mas1:TMas;procedure InputMas1(var mas1:TMas);var i: integer;begin for i:=1 to 10 do begin mas1[i]:=random(n); Write(mas1[i]:3); end;begin

    InputMas1(mas1); readkey; end.

    • Автор:

      bellavmer
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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