| Импорт | Экспорт | |
| Польша, Чехия, страны Западной Европы | металлы, оружие, предметы роскоши и украшения | шёлк, зерно, пенька |
| Венгрия, Балканские страны | металлы, оружие, кони, предметы роскоши, украшения | шёлк, зерно |
| Страны Скандинавии и Северной Европы | металлы, оружие, шерсть, янтарь, предметы роскоши, украшения | зерно, керамика, меха, пенька, лён |
| Византия | металлы, оружие, предметы роскоши, украшения, шёлк, одежда, книги, пряности, благовония | зерно, лён, меха, мёд, воск |
| Степные народы | кони, медь | зерно, лён |
| Кавказ | шёлк, оружие, хлопок, шерсть, ковры, пряности, благовония, золото, медь, железо | зерно, лён, меха, мёд, воск |
| Азия | шёлк, оружие, хлопок, ковры, пряности, благовония | меха, лён, мёд, воск, пенька, кожи |
| Волжская Булгария | зерно | Меха, лён, мёд, воск |
const n = 10;
var
a: array[1..n] of integer;
i, min: integer;
begin
min := 20;
for i := 1 to n do begin
a[i] := random(20);
if(a[i] < min) then min := a[i];
write(a[i], ' ');
end;
writeln; writeln('Минимальный эл. массива: ', min);
for i := 1 to n do begin
if(i mod 2 <> 0) then a[i] := min;
write(a[i], ' ');
end;
end.