1. в одновимірному масиві, що складається з n дійсних елементів, обчислити: - мінімальний за модулем елемент масиву.
- суму модулів елементів, які розташовані після першого від'ємного елемента.
Стиснути масив, видаливши з нього всі елементи величина яких знаходиться на інтервалі [а, b]. Місце, які звільняться в кінці масиву заповнити нулями.
2. Дана цілочисельна прямокутна матриця. Визначити номер першого з стовпців, які містять хочаб один нульовий елемент. Характеристикою рядка цілочисельної матриці назвемо суму її від'ємних парних елементів. Переставляючи рядки заданої матриці, розташувати їх у відповідності зі спаданням характеристик.
3. З клавіатури вводиться текстовий рядок. Скласти програму яка змінює всі великі літери, що входять до тексту на відповідні малі. виводить на екран найдовше слово. видаляє, всі слова що містять непарну кількість приголосних літер.

Первая программа
var
  n, i, x, s : integer;
  t : boolean;
begin
  writeln('количество чисел');
  readln(n);
  s := 1;
  t := false;
  for i := 1 to n do
    begin
      writeln(i,' число');
      readln(x);
      if x < 7 then
        begin
          t := true;
          s := s*x;
        end;
    end;
  if t then
    writeln('ответ ',s)
  else
    writeln('ответ ',0);
end.

Вторая
var
  n, i, x, s : integer;
begin
  writeln('kolichestvo chisel');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' chislo');
      readln(x);
      if (x >= 10) and (x < 99) then
        s := s + 1;
    end;
  writeln('Otvet: ',s);
end.

Третья
var
  n, i, x, s : integer;
begin
  writeln('kolichestvo chisel');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' chislo');
      readln(x);
      if x > 10 then
        s := s + 1
      else if x < 10 then
        s := s - 1;
    end;
  if s > 0 then 
    writeln('chisel >10 bolche')
  else if s < 0 then
    writeln('chisel <10 bolche')
  else    writeln('chisel porovnu');
end.

Четвёртая
var
  n, i, x : integer;
  st : string;
begin
  writeln('kolichestvo chisel');
  readln(n);
  for i := 1 to n do
    begin
      writeln(i,' chislo');
      readln(x);
      if (x > 12)  and (x < 40) and (x mod 7 = 0) then
        st := st + IntToStr(x) + ' ';
    end;
    writeln('otvet: ',st);
end.

вариант решения, если элементы вводятся
var
  n, i, x, s : integer;
  t: string;
begin
  writeln('количество чисел');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' число:');
      readln(x);
      if (x > 9) and (x<100)) then
        begin
          t :=  IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.

вариант решения, если элементы заданы массивом
const
n=50
var
  i, x, s : integer;
  t: string;
  m1: array [1..n] of integer;
begin
  s := 0;
  for i := 1 to n do
     begin
      x := m1[i];
      if (x > 9) and (x<100)) then
        begin
          t := IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.