uses crt;
const n=10;
var a: array[1..n] of integer;
i,j,k: byte; c: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do begin
a[i]:=random(19)-9;
write(a[i]:3); end; writeln;
k:=0; for i:=1 to n-1 do f
or j:=i+1 to n do if a[i]>a[j] then begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
inc(k);
end;
writeln('результат сортировки: ');
for i:=1 to n do write(a[i]:3);
writeln;
writeln('кол-во перестановок = ',k);
end.
Используйте команду <img src="...">
Без атрибутов это будет выглядеть как <img src="моя_картинка.jpg">
путь до картинки должен быть относительно страницы сайты
ПРИМЕР:
страница сайта: index.html
картинка в том же каталоге где и сама страница, тогда <img src="моя_картинка.jpg"> , если рядом с index.html есть каталог "АрхивФото" и картинка в нем, тогда <img src="АрхифФото/моя_картинка.jpg">
Советую прочитать про атрибуты. Они правильно разместить картинку на странице.
Например
<img src="img/моя_картинка.jpg" align="left" vspace="10" border="3" alt="Названия моей картинки">
Означает что текст будет обтекать справа, отступ по ширине 10 пикселей, название картинки "Названия моей картинки"
Если конечно у вас будет присутствовать текст.
DIM x(1 TO n) AS INTEGER
CLS
PRINT "Введите 15 чисел"
im = 1
FOR i = 1 TO n
INPUT x(i)
IF x(i) > 2 AND x(i) < x(im) THEN im = i
NEXT i
DIM t AS INTEGER
t = x(1)
x(1) = x(im)
x(im) = t
FOR i = 1 TO n
PRINT x(i);
NEXT i
Тестовое решение
Введите 15 чисел
? 5
? 8
? -3
? 11
? 4
? 8
? 4
? 0
? 5
? 2
? 9
? 3
? 11
? 6
? 4
3 8 -3 11 4 8 4 0 5 2 9 5 11 6 4