• Помогите найти ошибку в программе, при запуске на строке "vyvod(arr);" выдает ошибку: "Ожидалось выражение". Не пойму в чем проблема.

    uses crt;
    type
    arr=array [1..10] of integer;
    procedure vvod (var ar :arr);
    var
    i:byte;
    begin
    randomize;
    for i:=1 to 10 do
    ar[i]:=random(50)-20;
    end;
    procedure Order(var ar :arr; n : integer);
    var i, j, T: integer;
    begin
    for i := 1 to n do
    for j := n downto i+1 do
    if (ar[Pred(j)] <= 0) and (ar[j] >= 0) then
    begin
    T := ar[Pred(j)];
    ar[Pred(j)] := ar[j];
    ar[j] := T;
    end;
    end;
    procedure vyvod(var ar:arr);
    var
    i:byte;
    begin
    writeln;
    for i:=1 to 10 do
    write(ar[i],' ');
    end;
    begin
    writeln('Массив arr:');
    vyvod(arr);
    end.

Ответы 3

  • Тут вводится через type, а не var, так что там должно стоять "="
    • Автор:

      jensen83
    • 5 лет назад
    • 0
  • Или же объясняйте мысль лучше
    • Автор:

      sophie16
    • 5 лет назад
    • 0
  • arr:array [1..10] of integer;
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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