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

2018 2020 1931 2109

Объяснение:

1 кнопка панели инструментов (Открыть) предназначена для того, что бы открывать файлы, проекты. 2 кнопка панели инструментов (Сохранить проект) предназначена для того, что бы сохранять проекты. 3 кнопка панели инструментов (Добавить файл) предназначена для того, что бы добавить файл. 4 кнопка панели инструментов (Добавить текст) предназначена для того, что бы добавлять текст. 5 кнопка панели инструментов (Добавить пустой) предназначена для того, что бы добавлять пустое место в проекте. 6 кнопка панели инструментов (Запись) предназначена для того, что бы записывать проект.

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 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.