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

Написать программу и блок схему

Question

Информатика

Полюня

26 июня, 23:47

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

Написать программу и блок схему

+3

Ответы (1)

~~Знаете ответ?~~

Харитон · 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

begin

if i<0 then inc (a) ;

if j<0 then inc (a) ;

if f<0 then inc (a) ;

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.