Помогите отыскать ошибку в программке, при запуске на строке "vyvod(arr);" выдает

Помогите отыскать ошибку в программке, при запуске на строке "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)] lt;= 0) and (ar[j] gt;= 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.

Задать свой вопрос
1 ответ
arr:array [1..10] of integer;
Андрей Мальцуров
Здесь вводится через type, а не var, так что там обязано стоять "="
Танечка Штоффер
Или же изъясняйте идея превосходнее
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт