Безотлагательно!1) Составьте программу ввода частей массива a[1..8] с клавиатуры и вывода

begin

 //1

 var a := ReadArrReal(8);

 a.Where(x-gt;xlt;0).Println;

 Println();

 //2

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

 a2.Println;

 a2.Count(x-gt;x.isEven).Println;

 Println();

 //3

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

 b.Println;

 b.Count(x-gt;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('gt; ');

      readln(arr[i]);

 end;

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

 for i:=1 to 8 do

 begin

      if arr[i] lt; 0 then

      begin

        write(arr[i]);

        write(' ');

      end;

 end;

 writeln('');

end.