Помогите пожалуйста Даны 3 числа a,b,c. Определить минимальное из них. Если минимальное число окажется отрицательным , то определить количество отрицательных чисел , а иначе все положительные числа заменить на отрицательные . ...
Помогите пожалуйста
Даны 3 числа a,b,c. Определить минимальное из них. Если минимальное число окажется отрицательным , то определить количество отрицательных чисел , а иначе все положительные числа заменить на отрицательные .
Написать программу и блок схему
Гость
Ответ(ы) на вопрос:
Гость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 j0 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.
Не нашли ответ?
Похожие вопросы