Даны 3 числа a,b,c. Определить минимальное из них. Если минимальное число окажется...

Question

Даны 3 числа a,b,c. Определить минимальное из них. Если минимальное число окажется отрицательным , то определить количество отрицательных чисел , а иначе все положительные числа заменить на отрицательные .
Написать программу и блок схему

Answer 1

Program project1;
uses
crt,math;
var  s:real;  i,j,f:real;  a:integer;
begin 
writeln('vvedite 1 chislo ');readln(i);
  writeln('vvedite 2 chislo ');readln(j); 
 writeln('vvedite 3 chislo ');readln(f); 
 s:=i; 
 if j if f if s<0 then <br> begin  
  if i<0 then inc(a);  <br>  if j<0 then inc(a);  <br>  if f<0 then inc(a);  <br>  writeln('kolichestvo otricatelnix ',a:2);
  end 
 else  
begin  
  if i>0 then i:=i*-1;
  if j>0 then j:=i*-1;
  if f>0 then f:=i*-1; 
 end; 
 writeln('min chislo ',s:2:0); 
 readln;
end.