Поделитесь своими знаниями, ответьте на вопрос:
Var a: array 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. проверьте на ошибки, и как составить программу ' найдите наибольшее и наименьшее в однородном массиве'.
Рабочий код из вашего может быть таким:
var
A: array [1..5] of integer;
g, j, k, l: byte;
begin
randomize;
for j := 1 to 5 do
begin
A[j] := random(9);
writeln(A[j]);
end;
for j := 1 to 5-1 do
begin
for g := j+1 to 5 do
begin
if A[j] > A[g] then begin
K := A[j];
A[j] := A[g];
A[g] := K;
end;
end;
end;
for j := 1 to 5 do
write(A[j]);
end.