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