В чём ошибка?
type st = set of -32768..32767;
var
a:array[1..100,1..100]of integer;
v:array[-10000..10000]of boolean;
el,k,n,i,j,l,h,k_str,g:integer;
b:st;
begin
writeln('Введите количество строк или столбцов квадратной матрицы: ');
readln(n);
writeln('Введите матрицу: ');
for i:=1 to n do
begin
v[i]:=false;
for j:=1 to n do read(a[i,j]);
end;
writeln();
k:=0;b:=[];g:=0;
for i:=1 to n do
for j:=1 to n do begin
if not(a[i,j]in b)then
begin
for l:=1 to n do
for h:=1 to n do if(a[l,h]=a[i,j])then begin inc(k);if(l mod 2 = 0)then inc(k_str);end;
if(k<>0)then writeln('Элемент: ',a[i,j]:5,' Всего: ',k:5,' На чётных строках: ',k_str);
if(k_str=k)and(k>1)then begin inc(g); v[a[i,j]]:=true; end;
k:=0;k_str:=0;
b:=b+[a[i,j]];
end;
end;
writeln();
if(g<>0)then
begin
writeln('Повторяющиеся элементы, расположенные только на чётных строках: ');
for i:=1 to n do
for j:=1 to n do if(v[a[i,j]])then begin write(a[i,j],' ');v[a[i,j]]:=false; end;
end
else writeln('Ни один повторяющийся элемент не расположен только на чётных строках!');
end.

rom32кат    1   18.04.2020 00:15    2