Прокомментировать код

function FindMin(const x, y: Integer): Integer;
var
  Res: Integer;
begin
  if (y < x)
    then
    Result := y
  else
    Result := x;
  FindMin := Result;
end;
 
var
  a: Array[1..100] Of Integer;
  b: Array[1..50] Of Integer;
  n, i: Byte;
 
begin
  repeat
    Write('n=');
    ReadLn(n);
  until (n <= 100);
  for i := 1 to n do
  begin
    Write('a[', i, ']=');
    ReadLn(a[i]);
  end;
  WriteLn;
  for i := 1 to n div 2 do
  begin
    b[i] := FindMin(a[i * 2], a[i * 2 + 1]);
    Write(b[i]:4);
  end;
  if Odd(n)
  then
  begin
    b[(n div 2) + 1] := a[n];
    Write(b[(n div 2) + 1]:4);
  end;
  ReadLn;
end.

const
  n_max = 100;
 
var
  a, b: array [1..n_max] of integer;
  n, j, i, max: integer;
 
begin
  write('Введите размерность массива: '); readln(n);
  j := 0;
  for i := 1 to n do
  begin
    readln(a[i]);
    if a[i] < 0 then
    begin
      inc(j);
      b[j] := a[i];
    end;
  end;
  n := j; max := b[1];
  for i := 1 to n do
  begin
    write(b[i]:4);
    if b[i] > max then
      max := b[i];
  end;
  writeln;
  writeln('Max: ', max);
  readln;
end.

var
  s: string;
  n, i, k: byte;
 
begin
  writeln('Введите строку из русских слов, разделенных пробелами');
  readln(s);
  s := ' ' + s;
  n := length(s);
  k := 0;
  for i := 2 to n do
    if(s [i] = 'а') and (s[i - 1] = ' ') then k := k + 1;
  write('Количество слов на букву а=', k);
end.

var
    s: String;
    i, k: Byte;
begin
    Write('Введите строку из русских слов, разделенных пробелами: ');ReadLn(s); //вводим строку
    s := ' ' + s; //добавляем в начало строки пробел (чтобы можно было i-1 далее использовать)
    k := 0; //инициализируем счётчик
    for i := 2 to Length(s) do //по всей длине строки
        if (s[i] = 'а') and (s[i - 1] = ' ') //проверяем является ли текущий символ буквой 'а' и является ли она началом слова (пробел перед ней)
        then
            Inc(k); //наращиваем счётчик слов на букву 'а'
    Write('Количество слов на букву а=', k); //выводим
end.

const
    n_max = 100;
 
var
    a, b: Array [1..n_max] Of Integer;
    na, nb, i, maxID : Byte;
 
begin
    repeat
        Write('Введите размерность массива: ');
        ReadLn(na); //читаем размерность начального массива
    until (na > 0) And (na <= n_max);
    nb := 0; //инициализируем количество элементов в фильтрованном массиве
    for i := 1 to na do //пробегаемся по каждому элементу начального массива
    begin
        ReadLn(a[i]); //считываем его
        if (a[i] < 0) //если введён отрицательный
        then
        begin
            Inc(nb); //увеличиваем количество в фильтрованном
            b[nb] := a[i]; //записываем из исходного в фильтрованный
        end;
    end;
    if (nb > 0) //если в фильтрованном что-нибудь вообще есть
    then
    begin
        maxID := 1; //первый примем за максимальный (оперируем номерами, а не самим значением)
        for i := 1 to nb do //пробегаемся по массиву
        begin
            Write(b[i]:4); //выводим элемент на экран
            if (b[i] > b[maxID]) //если текущий проверяемый больше нашего максимума
            then
                maxID := i; //перезаписываем номер нового максимума
        end;
        WriteLn;
        WriteLn('Max: ', b[maxID]); //выводим максимум
    end
    else
        WriteLn('Массив пуст');
    ReadLn;
end.

function FindMin(const x, y: Integer): Integer; //функция нахождения минимума из двух чисел
begin
    if (y < x) //если y меньше x
    then
        Result := y //результатом функции будет y
    else //иначе
        Result := x; //-|-|- x
    FindMin := Result; //возвращаем значение
end;
 
var
  a: Array[1..100] Of Integer;
  b: Array[1..50] Of Integer;
  n, i: Byte;
 
begin
    repeat
        Write('n=');
        ReadLn(n);
    until (n <= 100); //считываем значение n пока не будет удовлетворять условию
    for i := 1 to n do //считываем последовательно элементы массива
    begin
        Write('a[', i, ']=');
        ReadLn(a[i]);
    end;
    WriteLn;
    for i := 1 to n div 2 do //от 1 до половины размера массива (числа сравниваются по двое)
    begin
        b[i] := FindMin(a[i * 2], a[i * 2 + 1]); //в новый массив пишем минимум из двух последующих чисел
        Write(b[i]:4); //выводим
    end;
    if Odd(n) //если количество элементов в массиве нечётное
    then
    begin
        b[(n div 2) + 1] := a[n]; //пишем в конец массива b последний (сравнивать его не с чем)
        Write(b[(n div 2) + 1]:4); //и выводим
    end;
    ReadLn;
end.