Определить среди 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 a<b then m:=a else m:=b;
      if m>c then m:=c;
    end else begin 
        if a>b then m:=a else m:=b; 
        if m<c then m:=c;
    end;
    writeln(m);
    end.

Добавить комментарий

*

51 − = 41