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

Всем привет! Сегодня мы начнем долгожданный разбор задач по программированию if1-15, а также вспомним и научимся применять различные процедуры. В решениях к некоторым задачам Вам встретится возможно неизвестная прежде процедура Inc. Пояснения к ней и к другим процедурам можно найти в этой статье.

If1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

Program If_1;

var
  a: integer;

begin
  readln(a);
  if a > 0 then Inc(a);
  write(a);
end.

If2. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

Program If_2;

var
  a: integer;

begin
  readln(a);
  if a > 0 then Inc(a) else a -= 2;
  write(a);
end.

If3. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

Program If_3;

var
  a: integer;

begin
  readln(a);
  if a >= 0 then 
    if a = 0 then a := 10 else Inc(a)
   else a -= 2;
  write(a);
end.

If4°. Даны три целых числа. Найти количество положительных чисел в исходном наборе.

Program If_4;

var
  a, b, c, plus: integer;

begin
  write('Введите три целых числа: ');
  readln(a, b, c);
  if a > 0 then Inc(plus); 
  if b > 0 then Inc(plus); 
  if c > 0 then Inc(plus); 
  writeln('Количество положительных чисел: ', plus);
end.

If5. Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.

Program If_5;

var
  a, b, c, plus, minus: integer;

begin
  write('Введите три целых числа: ');
  readln(a, b, c);
  if a > 0 then Inc(plus) else Inc(minus);
  if b > 0 then Inc(plus) else Inc(minus);
  if c > 0 then Inc(plus) else Inc(minus);
  writeln('Количество положительных чисел - ', plus);
  writeln('Количество отрицательных чисел - ', minus);
end.

If6°. Даны два числа. Вывести большее из них.

Program If_6;

var
  a, b: integer;

begin
  write('Введите числа: ');
  readln(a, b);
  if a > b then writeln(a) else writeln(b);
end.

If7. Даны два числа. Вывести порядковый номер меньшего из них.

Program If_7;

var
  a, b: integer;

begin
  write('Введите числа: ');
  readln(a, b);
  if a < b then writeln(1) else writeln(2);
end.

If8°. Даны два числа. Вывести вначале большее, а затем меньшее из них.

Program If_8;

var
  a, b: integer;

begin
  write('Введите числа: ');
  readln(a, b);
  if a > b then writeln(a,' ', b) else writeln(b,' ', a);
end.

If9. Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.

Program If_9;

var
  a, b: integer;

begin
  write('Введите A: ');
  readln(a);
  write('Введите B: ');
  readln(b);
  if a > b then writeln('A = ', a,';  B = ', b) else writeln('A = ', b,';  B = ', a);
end.

If10. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

Program If_10;

var
  a, b: integer;

begin
  write('Введите A: ');
  readln(a);
  write('Введите B: ');
  readln(b);
  if a <> b then writeln('A = ', a+b,';  B = ', a+b) else writeln('A = ',0,';  B = ',0);
end.

If11. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

Program If_11;

var
  a, b: integer;

begin
  write('Введите A: ');
  readln(a);
  write('Введите B: ');
  readln(b);
  if a = b then writeln('A = ',0,';  B = ',0) else
    if a > b then writeln('A = ', a,';  B = ', a) else writeln('A = ', b,';  B = ', b);
end.

If12°. Даны три числа. Найти наименьшее из них.

Program If_12;

var
  a, b, c: integer;

begin
  write('Введите три числа: ');
  readln(a, b, c);
  if (a <  b) and (a < c) then writeln(a) else 
    if b < c then writeln(b) else writeln(c);
end.

If13. Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).

Program If_13;

var
 a, b, c, srednee:integer;

begin
 write('Введите три числа: ');
 readln(a, b, c);
 if (a > c) and (a > b) then
  if c > b then srednee := c
  else srednee := b;
 if (b > a) and (b > c) then
  if a > c then srednee := a
  else srednee := c;
 if (c > a) and (c > b) then
  if a > b then srednee := a
  else srednee := b;
 writeln('Среднее: ', srednee);
end.

If14. Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

Program If_14;

var
 a, b, c, min, max :integer;

begin
 write('Введите три числа: ');
 readln(a, b, c);
 if (a > c) and (a > b) then max := a
   else if b > c then max := b
     else max := c;
 if (a < c) and (a < b) then min := a
   else if b < c then min := b
     else min := c;
 writeln('Наименьшее число: ', min);
 writeln('Наибольшее число: ', max);
end.

If15. Даны три числа. Найти сумму двух наибольших из них.

Program If_15;

var
 a, b, c :integer;

begin
 write('Введите три числа: ');
 readln(a, b, c);
 if (a < b) and (a < c) then writeln(b+c)
   else if b < c then writeln(a+c)
     else writeln(a+b);
end.

Фух! На сегодня все! Если у вас возникли какие-либо вопросы не стесняйтесь, оставляйте все свои вопросы в комментариях под статьей! И не забывайте кликать по кнопочкам и рассказывать о нас своим друзьям.