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.
В объяснении
Объяснение:
1 Вариант
1. 1)ppt
2. 1) my.doc, bell.txt, song.docx;
3. 3)мышь
4. 1) красного, синего, зеленого
5.Объем сообщения определяется по формуле:
V=l*r,
где l-длина сообщения, r-разрешение.
l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).
r=1 байт=8 бит.
Объем сообщения равен:
V=50*8=400 бит.
6. не понятно, что делать, задания не видно как-то
7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114
8. Нет рисунка собственно
9. 64 бита < 16 байт
10 Кбайт < 10600 байт
10 байт = 80 бит
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.