Задан двумерный массив с именем b размером 4*2, с случайных чисел на промежутке [-8; 10]. найти количество элементов массива кратных 3 в нечетных строках массива. составить блок-схему, трассировку, программу.

Dim b(4,2)
for i=1 to 4 step 2
  for j=1 to 2
    b(i,j)=int(RND*10-8)
    print b(i,j);
  next j
  print
next i
kol=0
for i=1 to 4 step 2
  for j=1 to 2
    if b(i,j) mod 3=0 then
      kol=kol+1
    end if
  next j
next i
print kol 

Program n_1;

var i, b, k:integer; a: array [1..2000] of integer;

begin

   writeln('Введите числа');

   for i:=1 to 2000 do read(a[i]);

   writeln;

   writeln ('Числа, состоящие из 2 разрядов:');

   for i:=1 to 2000 do begin

       b:=a[i];

       k:=0;

       while b>0 do

           begin

           b:=b div 10;

           k:=k+1;

       end;

       if k=2 then write(a[i], ' ');

   end;

   writeln;

   writeln ('Числа, состоящие из 3 разрядов и кратные 3:');

   for i:=1 to 2000 do begin

       b:=a[i];

       k:=0;

       while b>0 do

           begin

           b:=b div 10;

           k:=k+1;

       end;

       if k=3 then begin

           b:=(a[i] mod 10) + ((a[i] div 10) mod 10) + ((a[i] div 100) mod 10);

           if (b mod 3) = 0 then write(a[i], ' ');

       end;

   end;

end.

С++
#include <iostream>
#include <ctime>
using namespace std;
int main ()
{
setlocale (0,"russian");
srand (time(NULL));
int N;
cout << "Чётное N=";
cin >> N;
if (N%2==0 && N>0)
{
int *arr=new int [N];
cout << "Случайный массив: ";
for (int i=0;i<N;i++)
{
arr[i]=rand()%200-100;
cout << arr[i] << ' ';
}
cout << endl << "Итог: ";
for (int x=N/2-1;x>=0;x--)
cout << arr[x] << ' ';
for (int y=N-1;y>=N/2;y--)
cout << arr [y] << ' ';
}
else
cout << "Ошибка!";
system ("PAUSE>>VOID");
return 0;
}