В чём ошибка?
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.

177

395

Посмотреть ответы 1

Ответы на вопрос:

Маргоритка2009

Информатика

4,4(36 оценок)

1)8 2)78 3)32 вроде бы так насчет 2 не уверен

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.