Объяснение:
type arr=array[1..100] of integer;
var
a:arr;
i,j,k,n:integer;
procedure PrintArr(a:arr;n:integer;s:string);{процедура печати массива}
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);{заполнение массива}
for i:=1 to n do read(a[i]);
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.
Что есть в печи – на стол мечи.
Казак, як голубь: куда не прилетит, там и пристанет.
Бисова нивира (ничему не верит).
Бог не без милости, казак не без счастья.
Не всяк тот казак, что фуражку набекрень носит.
У хорошего хозяина и свынка – господынка.
С доброй песней и путь короче, и жизнь слаще, и смерть легче
Старых почитай, молодых поучай.
Терпи, казак — атаманом будешь.
В закромах зерно – на душе тепло.
Казака даже чёрт боится.
Известная Кубанская поговорка — Казак и в беде не плачет.
Казак без седла, что черкес без кинжала.
Казак уважает старших, традиции.
Где казак — там и слава.
Нет уз святее товарищества
Забить клин (закончить работу).
Не тот хлеб, что в поле, а тот, что в амбаре.
И шашечка остра, а дух – сильнее.
Кровь казачья — не водица.
Казак с бедою, как рыба с водою.
Казаку честь – Родину беречь.
Казак без коня – сирота.
Красна дивка косами, а хата
Объяснение:
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.
Объяснение:
Что есть в печи – на стол мечи.
Казак, як голубь: куда не прилетит, там и пристанет.
Бисова нивира (ничему не верит).
Бог не без милости, казак не без счастья.
Не всяк тот казак, что фуражку набекрень носит.
У хорошего хозяина и свынка – господынка.
С доброй песней и путь короче, и жизнь слаще, и смерть легче
Старых почитай, молодых поучай.
Терпи, казак — атаманом будешь.
В закромах зерно – на душе тепло.
Казака даже чёрт боится.
Известная Кубанская поговорка — Казак и в беде не плачет.
Казак без седла, что черкес без кинжала.
Казак уважает старших, традиции.
Где казак — там и слава.
Нет уз святее товарищества
Забить клин (закончить работу).
Не тот хлеб, что в поле, а тот, что в амбаре.
И шашечка остра, а дух – сильнее.
Кровь казачья — не водица.
Казак с бедою, как рыба с водою.
Казаку честь – Родину беречь.
Казак без коня – сирота.
Красна дивка косами, а хата