Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

помогите, плиииз! найти значение и составить блок-схему

{min(x,y), x< 0

z=

{max(x,y), x>=0

Ответ оставил Гость

var
x,y,z:integer;
begin

wread(x,y);

if x<0 then
if x <= y then
z:=x
else
z:=y
else
if x >=y then
z:=x
else
z:=y;

Writeln(z);
readln;
end.

P.S. Если понравилось решение не забудь отметить как лучшше. ;)