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.
Запись на доске мелом Посмотреть на доску Числовая, текстовая
<span>Фотография Рассмотреть фотографию Графическая</span>
<span>Дискета Вставить в дисковод и открыть Текстовая, графическая, звуковая</span>
1 символ = 8 бит, включая пробелы и знаки препинания.
Василий сьел 6 конфет, из них 2 было барбариски.
Ответ: 48 символов * 8 бит = 384 бита
Ответ:
program kod;
var
a: array [1..10] of Integer;
i, p: Integer;
begin
for i:=Low(a) to High(a) do a[i]:=-40+Random(91);
p:=1;
for i:=Low(a) to High(a) do if (a[i]>0) and (a[i] mod 7=0) then p:=p*a[i];
end.
Объяснение:
У меня второй вариант решения. Размерность массива: [1..10] можно любую делать
