Series 8 - 11

Series8 - выводим четные числа и их количество из данного набора целых чисел.
Series9 - выводим нечетные числа из данного набора и их количество.
Series10 - определить наличие положительных чисел из данного набора.
Series11 - выводим числа меньшие данного числа.

Series8. Дано целое число N и набор из N целых чисел. Вывести в том же порядке все четные числа из данного набора и количество K таких чисел.

Последовательность действий:

1)Вводим количество чисел N.

2)Сначала количество четных чисел ставим K = 0.

3)Потом заходим в цикл (от 1 до N):

3.1)Вводим число а;

3.2)Если число а четное (условие odd(a+1) истинно), то при K=0 выводим сообщение "Четные числа";

3.3)Выводим все четные числа и увеличиваем их количество на 1 с помощью inc(K);

4)Вывводим количество четных чисел.

Код Pascal

var
  a, i, N, K: integer;

begin
  write('N = ');
  readln(N);
  K := 0; //начальное количество четных чисел
  writeln('Введите ', N, ' целых чисел:');
  for i := 1 to N do begin
    read(a);
    if odd(a + 1) then begin //число a четное
      if K = 0 then writeln('Четные числа:');
      write(a, ' ');
      inc(K) //увеличиваем количество четных чисел на 1
    end
  end;
  writeln;
  writeln('количество четных чисел = ', K)
end.

Series9. Дано целое число N и набор из N целых чисел. Вывести в том же порядке номера всех нечетных чисел из данного набора и количество K таких чисел.

Последовательность действий почти полностью повторяет действия из предыдущей задачи, только вместо проверки чисел на четность надо проверять на нечетность (условие odd(a) истинно), и выводить надо не сами числа, а их номера i в последовательности:

Код Pascal

var
  a, i, N, K: integer;

begin
  write('N = ');
  readln(N);
  K := 0; //начальное количество нечетных чисел
  writeln('Введите ', N, ' целых чисел:');
  for i := 1 to N do begin
    read(a);
    if odd(a) then begin //число a нечетное
      if K = 0 then writeln('Нечетные числа:');
      write(a, ' ');
      inc(K) //увеличиваем количество нечетных чисел на 1
    end
  end;
  writeln;
  writeln('количество нечетных чисел = ', K)
end.

Series10. Дано целое число N и набор из N целых чисел. Если в наборе имеются положительные числа, то вывести True; в противном случае вывести False.

Все комментарии в коде:

Код Pascal

var
  a, i, N: integer;
  bln: boolean;{ bln = True, если существуют положительные числа,
                и bln = False в противном случае }

begin
  write('N = ');
  readln(N);
  bln := false; //положительных чисел пока что нет
  writeln('Вводим ', N, ' случайных целых чисел:');
  randomize;
  for i := 1 to N do begin
    a := random(200) - 100; //случайное число [-100, 99]
    write(a, ' ');
    if (a > 0)and(bln = false) then bln := true
  { Замечание: условие (a > 0)and(bln = false) означает, что число
   а положительное (a>0) и перед этим положительных чисел ещё не 
   было (bln=false). Поскольку эти два условия должны выполнятся 
   одновременно, то объединяем их оператором and (логическое "и") }
  end;
  writeln;
  writeln(bln)
end.

Series11. Даны целые числа K, N и набор из N целых чисел. Если в наборе имеются числа, меньшие K, то вывести True; в противном случае вывести False.

Код Pascal

var
  a, i, N, K: integer;
  bln: boolean;{ bln = True, если неравенство a < K выполняется,
                и bln = False в противном случае }

begin
  write('N = ');
  readln(N);
  write('K = ');
  readln(K);
  bln := false;
  writeln('Выводим ', N, ' случайных целых чисел:');
  randomize;
  for i := 1 to N do begin
    a := -100 + random(200); //случайное число [-100, 99]
    write(a, ' ');
    if bln = false then bln := (a < K)
  end;
  writeln;
  writeln(bln)
end.