Найти сумму максимального и минимального элементов массива. нужно описать массив в delphi 7!

Program maxmin; const  n = 50; var   arr : array [1..n] of integer;   i : integer;   min, max : real; begin writeln('массив: '); randomize; for i : = 1 to n do   begin   arr[i] : = random(100);   write(arr[i], ' ');   end; max : = arr[1]; min : = arr[1]; for i : = 1 to n do   begin   if min > arr[i] then min : = arr[i];   if max < arr[i] then max : = arr[i];   end;   writeln('сумма = ', min+max);   end.

Var a,b,c,d: integer; begin   writeln('введите 4 числа через пробел'); readln(a,b,c,d);   if (a> 0)and(b> 0)and(c> 0)and(d> 0) then writeln('все числа положительные')   else  if  ((a< 0)and(b> 0)and(c> 0)and(d> 0))or((a> 0)and(b< 0)and(c> 0)and(d> 0))or((a> 0)and(b> 0)(c< 0))or((a> 0)and(b> 0)and(c> 0)and(d< 0)) then writeln('3 числа положительные')   else if ((a< 0)and(b< 0)and(c> 0)and(d> 0))or((a< 0)and(b> 0)and(c< 0)and(d> 0))or((a< 0)and(b> 0)and(c> 0)and(d> 0))or((a< 0)and(b> 0)and(c> 0)and(d< 0))or((a> 0)and(b< 0)and(c< 0)and(d> 0))or((a> 0)and(b< 0)and(c> 0)and(d< 0))or((a> 0)and(b> 0)and(c< 0)and(d< 0)) then writeln('2 числа положительных');   else if ((a> 0)and(b< 0)and(c< 0)and(d< 0))or((a< 0)and(b> 0)and(c< 0)and(d< 0))or((a< 0)and(b< 0)and(c> 0)and(d< 0))or((a< 0)and(b< 0)and(c< 0)and(d> 0)) then writeln('1 положительное число')   else if  (a< 0)and(b< 0)and(c< 0)and(d< 0) then writeln('нет положительных чисел');   readln end.

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