Сортировка пузырьком
var
a: array[1..5] of integer;
i, j, t, s, p: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 4 do
for j:=1 to 4 do
if a[j] > a[j+1] then begin
t:=a[j];
a[j] := a[j+1];
a[j+1] := t;
end;
write(a[i], ' ');
writeln;
s:=0; p:=1;
for i:=1 to 5 do begin
s:=s+a[i];
p:=p*a[i];
writeln(s, ' ', p);
end.
Объяснение:
Сортировка пузырьком
var
a: array[1..5] of integer;
i, j, t, s, p: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 4 do
for j:=1 to 4 do
if a[j] > a[j+1] then begin
t:=a[j];
a[j] := a[j+1];
a[j+1] := t;
end;
for i:=1 to 5 do
write(a[i], ' ');
writeln;
s:=0; p:=1;
for i:=1 to 5 do begin
s:=s+a[i];
p:=p*a[i];
end;
writeln(s, ' ', p);
end.
Объяснение: