Заполнить массив случайными числами от -30 до 30 и распечатать

var a, b: array [1..10] of integer;
    i, k1, k2, s, n: integer;
begin
  randomize;
  {Заполнить массив случайными числами от -30 до 30}
  for i := 1 to 10 do a[i] := 30 - random(61);
  {Распечатать массив}
  writeln('Массив a:');
  for i := 1 to 10 do write(a[i]:5);
  writeln;
  {Найдите сумму положительных элементов}
  s := 0;
  for i := 1 to 10 do if a[i] > 0 then s := s + a[i];
  writeln('Сумма положительных элементов: ', s);
  {Подсчитать количество четных элементов}
  n := 0;
  for i := 1 to 10 do if not odd(a[i]) then inc(n);
  writeln('Количество чётных элементов: ', n);
  {Напечатать номера нечетных элементов}
  write('Номера нечётных элементов:');
  for i := 1 to 10 do if odd(a[i]) then write(i:3);
  writeln;
  {Если элемент является четным числом, то прибавить к нему первый элемент массива,}
  {в противном случае - последний элемент массива.}
  {Первый и последний элементы массива не изменять.}
  writeln('К чётным числам прибавлен первый, к нечётным - последний элемент.');
  writeln('Первый и последний элемент не изменены:');
  write(a[1]:5);
  for i := 2 to 9 do
    begin
      if odd(a[i])
        then a[i] := a[i] + a[10]
        else a[i] := a[i] + a[1];
      write(a[i]:5)
    end;
  writeln(a[10]:5);
  {Заменить элементы с k1-ого по k2-ой на противоположные по знаку.}
  repeat
    write('k1 = ');
    readln(k1);
    if (k1 < 1) or (k1 > 9) then writeln('Диапазон k1: 1..9, повторите ввод.')
  until (k1 >= 1) and (k1 <= 9);
  repeat
    write('k2 = ');
    readln(k2);
    if (k2 < k1) or (k2 > 10) then writeln('Диапазон k2: ', k1, '..10, повторите ввод.')
  until (k2 >= k1) and (k2 <= 10);
  writeln('Элементы с ', k1, ' по ', k2, ' заменены на противоположные по знаку:');
  for i := 1 to 10 do
    begin
      if (i >= k1) and (i <= k2) then a[i] := -a[i];
      write(a[i]:5)
    end;
  writeln;
  {Сформировать массив b, каждый элемент которого равен b[i] = a[1] + a[2]+ ... +a[i]}
  writeln('Массив b, b[i] = a[1] + a[2]+ ... +a[i]:');
  b[1] := a[1];
  write(b[1]:5);
  for i := 2 to 10 do
    begin
      b[i] := b[i - 1] + a[i];
      write(b[i]:5)
    end;
  writeln;
  {Все элементы массива, предшествующие последнему отрицательному элементу массива умножить на 10}
  writeln('Элементы массива, предшествующие последнему отрицательному, умножены на 10:');
  for i := 10 downto 1 do
    if a[i] < 0
      then begin
        n := i;
        break
      end;
  if i = 1
    then writeln('Последнему отрицательному элементу не предшествует ни один элемент массива.')
    else for i := 1 to 10 do
      begin
        if i < n then a[i] := a[i] * 10;
        write(a[i]:5)
      end;
  readln
end.

{$reference System.Core.dll}
uses System, System.Linq, Arrays, System.Collections.Generic;
 
var sum : integer := 0;
function func(L : List<integer>; x : integer) : List<integer>;
begin
  sum := sum + x;
  L.Add(sum);
  result := L;
end;
 
type Pair = KeyValuePair<integer, integer>;
var 
  a, b :array of integer;
  rnd : System.Random := new Random;
  k1, k2 : integer;
  var last_index : Pair;
begin
  a := Enumerable.Range(1, 10).Select((i : integer) -> rnd.Next(-30, 30)).ToArray();
  a.Writeln(' ');
  writeln('Сумма положительных элементов: ', a.Where((i :integer) -> i > 0).Sum());
  writeln('Количество четных элементов: ', a.Where((i :integer) -> not Odd(i)).Count());
  write('Индексы нечетных элементов: ');
  a.Select((v : integer, i : integer) -> new Pair(v, i)).Where((p : Pair) -> Odd(p.Key)).Select((p : Pair) -> p.Value).ToArray().Writeln(' ');
  write('4 задание. Измененный массив: ');
  a := a.Select((v : integer, i : integer) -> ((i > 0) and (i < a.Length - 1) ? (Odd(v) ? v + a[a.Length - 1] : v + a[0]) : v)).ToArray();
  a.Writeln(' ');
 
  // проверку на корректность ввода не делал, но добавляется она очень просто
  write('k1 = '); k1 := ReadInteger() - 1;
  write('k1 = '); k2 := ReadInteger() - 1;
  write('5 задание. Измененный массив: ');
  a := a.Select((v : integer, i : integer) -> ((i >= k1) and (i <= k2) ? -v : v)).ToArray();
  a.Writeln(' ');
  
  b := a.Aggregate(new List<integer>, func).ToArray();
  write('6 задание. Массив b: '); b.Writeln(' ');
  write('7 задание. Измененный массив: ');
  var ix := a.Select((v : integer, i : integer) -> new Pair(v, i)).Where((p : Pair) -> p.Key < 0).ToArray();
  if ix.Length = 0 then writeln('Нет отрицательных элементов в массиве A')
  else 
  begin
    last_index := ix.Last();
    if last_index.Value = 0 then writeln('Перед последним отрицательным нет элементов')
    else 
    begin
      a := a.Select((v : integer, i : integer) -> (i < last_index.Value ? v * 10 : v)).ToArray();
      a.Writeln(' ');
    end;
  end;
end.