Сегодня на перемене вася рисовал в тетради необычную таблицу с числами, см. рисунок. ему хотелось дойти - id966626520220213 от вика3879 13.02.2022 02:28

Question

Информатика: Сегодня на перемене вася рисовал в тетради необычную таблицу с числами, см. рисунок. ему хотелось дойти до того момента, когда в таблице появится число 2019. тетрадный лист быстро закончился, кроме того, прозвенел звонок на следующий урок. васе хотя бы частично удовлетворить свое любопытство, определите, какие числа в такой таблице (если заполнять ее достаточно долго) окажутся соседями числа 2019 слева, справа, сверху и снизу. в качестве ответа выведите эти числа в порядке возрастания, разделяя

вика3879 · Accepted Answer

Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write( Введите размер матрицы );Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j] 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write( :4);end;writeln;end;write( p = ,p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j] 0...

MOGZ ответил