Составьте программу для решения следующей задачи. Введите с клавиатуры два числа: N и M. Если оба числа больше 100, то замените каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.

Program asd;
uses crt;
var n,m,min:integer;
 r:real;
begin 
Write(Введите число  n: ); 
Readln(n); 
Write(Введите число  m: ); 
Readln(m);
 If n>m then
min:=m 
else
min:=n;  
 If (n>100) and (m>100) then 
begin   
 n:=min; 
 m:=min; 
   Writeln(n= ,n, m= ,m); 
end;
   If (n>0) and (m<0) then 
 Writeln(n= ,n/2, m= ,m/2)   
 else   
  r:=(n+m)/2; 
    Writeln(Среднее арифм. :  ,r); 
 end.

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