Этикет это прежде всего умение вести себя культурно и правильно за столом или же в обществе. Сегодня я расскажу вам о этикете за столом. Представим ситуацию : вас позвали в гости и пригласили за стол. Вы проходите, садитесь за стол и начинаете брать грязными руками еду, разговаривать громко и ставить локти на стол. Только предстватьте, что о вас подумают люди? Страшно.. Для этого и придумали этикет. Этикет за столом очень важен. Чтобы произвести хорошее впечатление нужно уметь правильно и красиво вести себя за столом. Для начала перед тем как присесть за стол, нужно вымыть руки. За столом нужно держать спину ровно, не ставить локти на стол, правильно держать нож и вилку. Еду нужно брать по немногу, потому что если вдруг вам будут задавать вопросы, то будет не красиво если вы будете разговаривать с набитым ртом. Нужно не только приходить за стол покушать, но и уметь начать диалог. Если вы будете придерживаться всех этих правил, то вы сможете произвести приятное впечатление.
Объяснение:
Написала, как смогла. Удачи! Надеюсь
Объяснение:
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.
Объяснение: