const n=10;
var
   arr:array[1..n] of integer;
   i,k:integer;
begin
randomize;
k:=0;

for i:=1 to n do
   begin
     arr[i]:=random(50)+1;
     write(' ',arr[i]);
   end;

writeln;

for i:=1 to n do
    if arr[i] mod 2 = 0 then k:=k+1;

writeln(k);
readln;
end.

var
   number:integer;
   SumOfDig:integer;
begin
   number:=576;
   SumOfDig := (number mod 1000 - number mod 100) div 100;
   SumOfDig := SumOfDig + (number mod 100 number mod 10) div 10;
   SumOfDig := SumOfDig + number mod 10;
   writeln(SumOfDig);
readln;
end.

var
  number:integer;
  SumOfDig:integer;
begin
   number:=576;
   SumOfDig:=(number mod 1000 - number mod 100) div 100;
   SumOfDig:= SumOfDig +(number mod 100 - number mod 10) div 10;
   SumOfDIg:= SumOfDig + (number mod 10);

   writeln(SumOfDig);

   readln;
    
end.   
  

const n=10;
var
   arr:array[1..n] of integer;
   i,k:integer;
begin
randomize;
k:=0;

for i:=1 to n do
   begin
     arr[i]:=random(50)+1;
     write(' ',arr[i]);
   end;

writeln;

for i:=1 to n do
    if arr[i] mod 2 = 0 then k:=k+1;

writeln(k);
readln;
end.

char field[9][9]; //двумерный массив поля
int x,y; // переменная столбика и строки
int new_i=0; //переменная-счетчик для однопалубных кораблей
srand(time(NULL));
     for (x=0;x<=9;x++)
             {
                      for (y=0;y<=9;y++)
                           {
                    field[x][y]='.';
                             
                    for (new_i=0;new_i<=3;new_i++)
                    {
                    field[rand()%9][rand()%9]='$'; //тут должны отображаться однопалубные корабли
                    }
                    cout<<"[ "<<field[x][y]<<" ] "; //вывод сетки поля на экран
                           }
          cout<<"\n";
              }