Const n = 10;
var a:array[1..n]of integer;
min,imin,i,oldmin:integer;
begin
//Заполнение массива значениями в диапазоне
//от -100 до 100
//и одновременно находим минимальный элемент элемент
min:=100;
for i:=1 to n do begin
a[i]:=random(201)-100;
if a[i]<= min then
begin
min:=a[i];
imin:=i;//Запомним index минимального
end;
write(a[i]:5);
end;
writeln;
//В цикле сдвигаем элементы массива
//до индекса минимального включительно на
//одну позицию вправо
for i:=imin downto 2 do
a[i]:=a[i-1];
a[1]:=min;
//вывод элементов массива
for i:=1 to n do write(a[i]:5);
end.
program test;
var sum, x: integer;
begin
sum:=0;
Var
a: array[1..6]of integer;
i,m: integer;
begin
for i:=1 to 6 do
read(a[i]);
writeln(' ');
For i:=2 to 6 do
if (a[i]<0) and ((i mod 2) =0) then
for m:=i downto 2 do
swap(a[m],a[m-1]); for i:=1 to 6 do
write(a[i]:2);
<span>end.
abc pascal</span>