Как это можно сказать по русски
Например prj - это прожект, dbf-дата бейс.

shx-?
cpg
gpj
mbf

// pascalabc.net 3.0, сборка 1066 // pascalabc.net 3.0, сборка 1066 const   nn=50;   mm=50; var   a: array[1..mm,1..nn] of integer;   i,j,m,n,k: integer; begin   write('введите число строк и столбцов массива: '); read(m,n);   write('введите значение, заменяемое нулем: '); read(k);   randomize;   writeln('*** исходный массив ***');   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =random(51)-25;           write(a[i,j]: 4)       end;       writeln   end;   writeln('*** результирующий массив ***');   for i: =1 to m do begin       for j: =1 to n do begin           if i+j=k then a[i,j]: =0;           write(a[i,j]: 4)       end;       writeln   end end. тестовое решение: введите число строк и столбцов массива: 10 8 введите значение, заменяемое нулем: 11 *** исходный массив ***   -23    8    2  -4    6  17 -11 -20   -15 -18  -8  15    1    3 -12  -4   -14    9    3  -2  20 -13  21 -23   -20  24 -13  18  -6 -16 -19 -23   -24 -25 -16    1    0  18  -7  -8   -7  22  19  -6 -25  -6 -23  17     9 -23  -7  18    5  -9  11  16   12    0  -9    8    4  -4  12 -24   -24 -10  13    1  -7  13  21  -6   -9 -14 -21  24  -6    2 -24  11 *** результирующий массив ***   -23    8    2  -4    6  17 -11 -20   -15 -18  -8  15    1    3 -12  -4   -14    9    3  -2  20 -13  21    0   -20  24 -13  18  -6 -16    0 -23   -24 -25 -16    1    0    0  -7  -8   -7  22  19  -6    0  -6 -23  17     9 -23  -7    0    5  -9  11  16   12    0    0    8    4  -4  12 -24   -24    0  13    1  -7  13  21  -6     0 -14 -21  24  -6    2 -24  11