Помогите пожалуйста Даны 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.     

Comments

я даже не знаю.. а это тоже самое что Program kv;

---

Uses crt; Var a,b,c, и т.д? я просто совсем не понимаю, а еще что такое ":integer" и почему числа именно i,j,f ? почему не a,b,c?

---

ijf это просто переменные можете вместо их написать любые, uses crt,math это библиотеки они не обязательны можете их не вставлять в программу.