В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

ответить, это stranger things​

Показать ответ
Ответ:
00masha000
00masha000
18.11.2020 05:36

ответ:Толерантне ставлення до поглядів інших. Завжди слід пам’ятати, що думка іншої людини заслуговує на повагу. Тому іноді краще не брати участі в суперечках про їжу, моду, хобі, манеру поведінки. Не дарма кажуть: «На колір і смак товариш не всяк». У таких конфліктних ситуаціях кожний залишається при своїй думці, а стосунки можна зруйнувати. Тому слід шукати те, що об’єднує співрозмовників.

Ухилення від конфлікту. Зволікати з рішенням проблеми, ігнорувати її розв’язання.

Пристосування, або поступка. На

все погоджуватися, ігнорувати власні інтереси, робити те, що вирішать інші.

Суперництво, конкуренція. Нав’язувати власну точку зору будь-яким задовольняти власні цілі, незважаючи на інтереси інших. Тиснути на співрозмовника, застосовувати образливі слова.

Співробітництво, уміння домовлятися.

Намагатися зрозуміти причини виникнення конфлікту. Під час обговорення поважати одне одного, уважно слухати, намагатися зрозуміти позицію інших учасників конфлікту. Ум іти йти на взаємні поступки. Шукати рішення, яке задовольняє всіх.

Объяснение:

0,0(0 оценок)
Ответ:
gagaga2213
gagaga2213
07.03.2020 01:24

Объяснение:

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.

0,0(0 оценок)
Популярные вопросы: Другие предметы
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота