Question

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

Answer 1

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.

Answer 2

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.