Дано выражение с переменными x ,y, z. Составь программу, которая вычисляет значение этого выражения НА ЯЗЫКЕ ПИТОН

20 Б

Знание познавательных процессов непосредственно необходимо лечащему врачу. Зрение – офтальмология, слух – отоларингология и так далее. Психологические знания в работе врача – сфера межличностных отношений, отражение психического состояния в картине болезни, знание картины личности пациента.

Связь психологии с медицинскими науками обусловлена двойственной природой человека (социального и биологического существа).Большинство психических явлений имеет физиологическую обусловленность. Суть в следующем: психическое состояние человека отражается на его физиологическом состоянии, а в определенных ситуациях психические особенности могут развитию какого-либо заболевания. Хроническое заболевание сказывается на психическом состоянии больного. В современной медицине получили активное развитие методы психотерапевтического воздействия словом.

Одна из отраслей психологии – медицинская психология – изучает психологические аспекты гигиены, профилактики, диагностики, лечения, экспертизы и реабилитации больных. Область исследований медицинской психологии – вопросы возникновения, развития и течения болезней, влияние болезней на психику и наоборот.

Структура медицинской психологии: клиническая психология общая медицинская психология; психопрофилактика и психогигиена; психокоррекция.

Связь психологии и медицины на уровне понятийного аппарата осуществляется через такие термины как здоровье, болезнь, телесная функция.

Психическое здоровье – состояние благополучия, при котором человек может реализовать свой собственный потенциал,продуктивно и плодотворно работать, а также вносить вклад в жизнь своего сообщества.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
  a.Println;
  var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
    .Select(x->x.Item2).ToArray;
  if b.Count<>2 then
    Writeln('Количество отрицательных элементов не равно двум')
  else begin
    a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
      .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
    a.Println
    end
end.

Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0

Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.