Исправь последнюю часть и в описании переменных добавь 2 дополнительных переменных а1 и а2.
...
sum, kolvoel, i, j, n, a1, a2 : integer;
...
srar:=sum/kolvoel;
writeln('srasr=',srar);
for i:=n downto 1 do
for j:=n downto 1 do
if b[i,j]>srar then begin a1:=i; a2:=j; end;
writeln('i=',a1,' j=',a2);
<span>end.</span>
Здравствуйте, вы являетесь участником олимпиады НТИ. По правилам олимпиады нельзя использовать готовые решения для прохождения на последующие этапы. Т.к. вы нарушили правила, ваш аккаунт блокируется, и вы отстраняетесь от участия в НТИ. Желаем участия в следующем году.
С уважением,
Модераторы НТИ
var
n,count,i:integer;
begin
count:=0;
readln(n);
for i:=1 to n do
begin
readln(n);
if (n mod 4 = 0) and (n mod 7 <> 0) then
inc(count);
end;
writeln(count);
end.
1. Любой вид. К примеру - методом пузырьков.
2. Сортировка требуется для упорядочивания элементов.
3. Те, которые допускают сравнение друг с другом.
Примерно так рисуются круги Эйлера