Входные данные вводятся целые числа a и b. гарантируется, что a не превосходит b выходные данные выведите (через пробел) все четные числа от a до b (включительно примеры входные данные 2 5 выходные данные 2 4

Программа:

var a, b: integer;

begin

   read(a, b);

   if (a mod 2 <> 0) then a := a + 1;

   while a <= b do

   begin

       write(a, ' ');

       a := a + 2

   end

end.

Пример ввода:

1 15

Пример вывода:

2 4 6 8 10 12 14

Первый ищем положительные элементы и меняем им знак)

Программа:

const
  MAX_N = 1000; // Максимальное количество элементов в массиве

var
  a: array[1..MAX_N] of integer;
  i, n: integer;  
begin
  // Ввод массива
  write('Введите размерность массива: ');
  read(n);
  writeln('Введите массив: ');
  for i := 1 to n do
    read(a[i]);
  // Обработка массива
  for i := 1 to n do
    // Если элемент положительный, то меняем знак
    if a[i] > 0 then
      a[i] := -a[i];
  // Вывод массива
  writeln('Полученный массив:');
  for i := 1 to n do
    write(a[i], ' ')
end.

Второй каждому элементу присваиваем обратное его модулю число)

Программа:

const
  MAX_N = 1000; // Максимальное количество элементов в массиве

var
  a: array[1..MAX_N] of integer;
  i, n: integer;  
begin
  // Ввод массива
  write('Введите размерность массива: ');
  read(n);
  writeln('Введите массив: ');
  for i := 1 to n do
    read(a[i]);
  // Обработка массива
  for i := 1 to n do
      a[i] := -abs(a[i]);
  // Вывод массива
  writeln('Полученный массив:');
  for i := 1 to n do
    write(a[i], ' ')
end.

1. Вывести на экран N чисел, в порядке чередования (например если N = 9, то ответом будет 1 9 2 8 3 7 4 6 5)
2. Найти наибольший общий делитель и наименьшее общее кратное двух чисел.
3. Вывести введенную строку в обратном порядке.
Решения на Pascal:
1.

var n, i: integer;
begin
  read(n);
  for i := 1 to n do
    if odd(i) then write(i div 2 + 1, ' ')
    else write(n - i div 2 + 1, ' ')
end.

2.

var a, b, a1, b1, t: integer;
begin
  read(a, b);
  a1 := a;
  b1 := b;
  repeat
    t := a mod b;
    a := b;
    b := t;
  until b = 0;
  writeln('НОД=', a);
  writeln('НОК=', a1 * b1 div a);
end.

3.

var s, s1: string;
    i: integer;
begin
  read(s);
  s1 := '';
  for i := length(s) downto 1 do
    s1 += s[i];
  write(s1)
end.