Question

Помогите найти ошибку в программе, при запуске на строке "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.

Answer 1

arr:array [1..10] of integer;