Question

Определить среди 3 введенных чисел(a,b,c) количество отрицательных и положительных.Если больше положительных, то найти минимум из этих 3 чисел, а иначе найти максимум.(нужно нарисовать блок схему и написать программу в паскале)

Answer 1

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.

Answer 2

Ответ: Для решения этой задачи можно использовать следующую блок-схему и программу на языке Паскаль.

Блок-схема:

![Блок-схема]

Программа на Паскале:

program task;
var
  a, b, c, min, max, pos, neg: integer;
begin
  writeln('Введите три целых числа:');
  readln(a, b, c);
  pos := 0; // количество положительных чисел
  neg := 0; // количество отрицательных чисел
  if a > 0 then
    pos := pos + 1
  else if a < 0 then
    neg := neg + 1;
  if b > 0 then
    pos := pos + 1
  else if b < 0 then
    neg := neg + 1;
  if c > 0 then
    pos := pos + 1
  else if c < 0 then
    neg := neg + 1;
  writeln('Количество положительных чисел: ', pos);
  writeln('Количество отрицательных чисел: ', neg);
  if pos > neg then // если больше положительных, то ищем минимум
  begin
    min := a;
    if b < min then
      min := b;
    if c < min then
      min := c;
    writeln('Минимальное из трех чисел: ', min);
  end
  else // иначе ищем максимум
  begin
    max := a;
    if b > max then
      max := b;
    if c > max then
      max := c;
    writeln('Максимальное из трех чисел: ', max);
  end;
end.

Надеюсь, это поможет вам с вашей задачей.