Определить среди 3 введенных чисел(a,b,c) количество отрицательных и положительных.Если больше положительных, то найти минимум из этих 3 чисел, а иначе найти максимум.(нужно нарисовать блок схему и написать программу в паскале)
Определить среди 3 введенных чисел(a,b,c) количество отрицательных и положительных.
Если больше положительных, то найти минимум из этих 3 чисел, а иначе найти максимум.(нужно нарисовать блок схему и написать программу в паскале)
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,m,k:integer;
begin
readln(a,b,c);
if a>0 then inc(k) else dec(k);
if b>0 then inc(k) else dec(k);
if c>0 then inc(k) else dec(k);
if k>0 then begin
if ac then m:=c;
end else begin
if a>b then m:=a else m:=b;
if m
Не нашли ответ?
Похожие вопросы