Ладога - город в Волховском районе Ленинградской области. До 1703 года - село, с 1703 года - город Новая Ладога. Возникший почти одновременно с Петербургом по воле одного и того же человека - Петра I, уездный центр сохранился гораздо хуже, чем Северная столица. Время по стенам храмов, накренило колокольни, вбило в землю старые домики. Основание этого города свидетельствовало о стремлении славян к свободному выходу в Балтийское море, к свободной торговле, прямому общению людей Запада и Востока. В этом месте нашего Отечества впервые было установлено регулярное сообщение Руси с Северной и Западной Европой. Своим стремительным возвышением Ладога была обязана ключевому положению на евразийских Балтийско-Волжском и Балтийско-Черноморском торговых путях, которые пролегали по крупнейшим рекам Восточно-Европейской равнины, Волге и Днепру, и вели в Арабский халифат и Византию.
Ладога - город в Волховском районе Ленинградской области. До 1703 года - село, с 1703 года - город Новая Ладога. Возникший почти одновременно с Петербургом по воле одного и того же человека - Петра I, уездный центр сохранился гораздо хуже, чем Северная столица. Время по стенам храмов, накренило колокольни, вбило в землю старые домики. Основание этого города свидетельствовало о стремлении славян к свободному выходу в Балтийское море, к свободной торговле, прямому общению людей Запада и Востока. В этом месте нашего Отечества впервые было установлено регулярное сообщение Руси с Северной и Западной Европой. Своим стремительным возвышением Ладога была обязана ключевому положению на евразийских Балтийско-Волжском и Балтийско-Черноморском торговых путях, которые пролегали по крупнейшим рекам Восточно-Европейской равнины, Волге и Днепру, и вели в Арабский халифат и Византию.
Объяснение:
type arr=array[1..100] of integer;
var
a:arr;
i,j,k,n:integer;
procedure PrintArr(a:arr;n:integer;s:string);{процедура печати массива}
var
i:integer;
begin
write(s);
write('[');
for i:=1 to n-1 do write(a[i],',');
writeln(a[n],']');
end;
procedure EnterArr(var a:arr;n:integer;s:string);{заполнение массива}
var
i:integer;
begin
write(s);
for i:=1 to n do read(a[i]);
end;
begin
repeat
write('n(1..100)=');
readln(n);
until (n>0) and (n<101);
EnterArr(a,n,'A=');
k:=a[1];
for i:=1 to n do if a[i]<k then k:=a[i];
writeln('Min=',k);
PrintArr(a,n,'A_orig=');
for i:=1 to n do if a[i]=k then a[i]:=i*i;
printArr(a,n,'A_new=');
readln;
end.