Сортировка методом пузырька:
const n=10;
Var a:array[1..n] of integer; i,j,b:integer;
Begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
for i:=1 to n do write(a[i],' ');
End.
Var
a:array[1..12]of integer;
i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 12 do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
if a[5]<a[10] then
begin
a[5]:=a[5]*2;
a[10]:=a[10]*2;
end
else
begin
a[5]:=0;
a[10]:=0;
end;
writeln('Преобразованный массив:');
for i:=1 to 12 do write(a[i]:4);
<span>end. </span>
К примеру, видеоигра — мультимедиа технология. В ней одновременно обеспечивается работа звука (голоса персонажей), анимации (объемная анимация персонажей), статистических изображений (меню игры), видеороликов и текстами в диалоговом режиме (диалоговое окно).