1) составьте программу ввода элементов массива a[1..8] с клавиатуры и вывода на экран элементов с отрицательными значениями 2) а) составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10
и находит количество элементов с чётными значениями б) составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с нечётными значениями

begin

  //1

  var a : = readarrreal(8);

  a.where(x-> x< 0).println;

  println();

  //2

  var a2 : = arrrandom(10, 1, 10);

  a2.println;

  a2.count(x-> x.iseven).println;

  println();

  //3

  var b : = arrrandom(8, 1, 10);

  b.println;

  b.count(x-> x.isodd).println;

end.

1.

program project1;

var arr: array[1..8] of integer;

var i: integer;

begin

  for i: =1 to 8 do

  begin

      write('введите число №');

      write(i);

      write('> ');

      readln(arr[i]);

  end;

  write('отрицательные числа: ');

  for i: =1 to 8 do

  begin

      if arr[i] < 0 then

      begin

        write(arr[i]);

        write(' ');

      end;

  end;

  writeln('');

end.