Заполнить массив случайными числами в интервале [-10, 10] и отобрать в другой массив все чётные отрицательные числа. пример: массив а: -5 6 7 -4 -6 8 -8 массив b: -4 -6 -8

Uses crt;
const
  n = 10;
var 
  a,b : array[1..n] of integer;
  i,j : integer;
begin
  randomize;
  i := 0;
  j := 0;
  for i := 1 to n do
  begin
    a[i] := random(21)-10;
    write(a[i],' ');     
  end;
  writeln;
  for i := 1 to n do
    if (a[i] < 0) and (a[i] mod 2 = 0) then 
    begin
       j := j+1;
       b[j] := a[i];
    end;
  for i := 1 to j do
    writeln(b[i]);
  readln;
end.

#include<iostream.h>

#include<conio.h>

#include<stdio.h>

 

int main()

 

 {

 

      int b;                                 // наше число b

      clrscr();                           // очищаем экран 

 

      cout<<"Введите b: ";  // Выводим на экран приглашение ввести и  

      cin>>b;                          // b присвиваем введённое значение  

 

         // если b=0 то выводим соответствующее сообщение 

 

        if (b==0)      cout<<"Ноль Совсем Ноль \n "; 

 

       // если b<0 и остаток от деления на 2 =0 то это  отрицательное четное число

        if  ((b<0) && (b%2)==0) cout<<"отрицательное четное число \n ";  

 

// если b<0 и остаток от дления на 2 <>0 то это  отрицательное нечетное число

 if  ((b<0) && (b%2)!=0) cout<<"отрицательное нечетное число \n ";

 

   

 // если b>0 и остаток от деления на 2 =0 то это  положительное   четное число  

        if  ((b>0) && (b%2)==0) cout<<"положительное четное число \n ";  

 

   // если b>0 и остаток от деления на 2 <>0 то это  положительное  нечетное число     

        if  ((b>0) && (b%2)!=0) cout<<" положительное  нечетное число \n ";   

 

  getch();   // ждём нажатия на любую клавишу перед  закрытием

  return 0; // стандартный выход  

 

} 

 

 

 

Program TwoSums;

Uses Crt;

var a:array[1..10] of integer;

       i:integer;  

       s1,s2:longint 

 

 begin

      clrscr;

      write('Исходный массив:');

      s1:=0;s2:=0;   

      for i:=1 to 10 do

            begin  

 

                a[i]:=random(101)-50;

                 write(a[i]:3);  

                if (i mod 2)<>0 then s1:=s1+a[i]

                        else s2:=s2+a[i];    

             end;

 

      writeln;

 

      writeln('Сумма нечётных элементов массива:',s1);

       writeln('Сумма чётных элементов массива:',s2);

       if (s1=s2) then writeln('Суммы равны');

      if (s1>s2) then writeln('Сумма нечётных элементов массива больше !')

               else writeln(' Сумма чётных элементов массива больше !'); 

    readkey;

 

end.