Поправьте мой код задачи (Pascal ABC, ветвление)

[DesignFootball.Ru]

Дано: Даны целые числа a,b,c. Написать программу, находящую минимально из них и количество положительных и отрицательных чисел.

Моё решение (пытался найти минимальное) - не правильно работает.

program abc;
var a,b,c,min: integer;
begin
writeln('Введите числа"a,b,c"');
readln(a,b,c);
if a > b then
min:=b
else
min:=a;
if a > c then
min:=c
else
min:=a;
if b > c then
min:=c
else
min:=b;
writeln('Минимальное число', min);
end.

Исправьте, пожалуйста, и подскажите, как ещё найти количество положительных и отрицательных чисел.

[Alex11223]

Как-то так так наверно.

if (a<b) and (a<c) then min:=a
else
   if (b<a) and (b<c) then min:=b
   else
      if (c<a) and (c<b) then min:=c;

количество положительных и отрицательных чисел

Эм...это как? Например, при а, б, с -5 -3 10 вывести, что 2 отрицательных числа и 1 положительное?

Форматируйте код, кстати. В АБС же даже есть кнопочка автоформатирования.

[DesignFootball.Ru]

Эм...это как? Например, при а, б, с -5 -3 10 вывести, что 2 отрицательных числа и 1 положительное?

Да, так. Спасибо за первую часть

[Alex11223]

Так а в чем проблема со второй часть? Проще всего что-нибудь вроде такого:

negn:=0; posn:=0;
if (a>=0) then inc(posn) else inc(negn);

inc(x) тоже самое, что x:=x+1

[DesignFootball.Ru]

Сообщение от Alex11223

Так а в чем проблема со второй часть? Проще всего что-нибудь вроде такого:

negn:=0; posn:=0;
if (a>=0) then inc(posn) else inc(negn);

inc(x) тоже самое, что x:=x+1

проблема в том, что мы этого не проходили.
вот что такое negn и posn

[Alex11223]

Вы не могли это не проходить) Это переменные, такие же как а, б и с, в которых будет храниться кол-во соответственно отрицательных и положительных чисел. Можете назвать их как-нибудь по-другому, если хотите (я им такие имена дал от negative numbers и positive numbers).

[DesignFootball.Ru]

Сообщение от Alex11223

Вы не могли их не проходить) Это переменные, такие же как а, б и с, в которых будет храниться кол-во соответственно отрицательных и положительных чисел. Можете назвать их как-нибудь по другому, если хотите (я им такие имена дал от negative numbers и positive numbers).

а! теперь ясно