Var A:array [1...5] of integer
g,j:byte;
Begin
randomize;
for j:=1 to 5 do
begin
A[j]:= random(9);
writeln(A[j]);
end;
for j:=1 to 5 do
begin
for g:=5 down to j do
begin
if A[g-1] begin
K:=A[j-1];
A[g-1]:=A[g];
A[g]:=K;
for l:=1 to 5;
end;
for j:=1 to 5 do
write(A[j])
and;and;End.
Проверьте на ошибки, и как составить программу ' Найдите наибольшее и наименьшее в однородном массиве'.