Необходимо заполнить двумерный массив, как указано задании, в Pascal

Необходимо заполнить двумерный массив, как указано задании, в Pascal.I — отвечает за номер строки.J — отвечает за номер столбца. Заполненные массивы должны выглядеть так: a) при const n=3, m=31 2 12 3 21 2 1 в) при const n=5, m=51 2 3 2 12 1 2 1 23 2 1 2 32 1 2 1 21 2 3 2 1

в избранное

andda

12 марта 2023

Program Task; Const N=3; Var A: Array [1… N, 1… N] of Integer; d, p, nFirst, nLast, I, J, K: Integer; BeginnFirst: =1; nLast: =N; p: =(N Div 2+1); For K: =1 To p Do BeginIf K=p ThenBegind: =p+1; If d > 3 Thend: =1; A[nFirst, nLast]: =d; Break; End; For J: =nFirst To nLast DoBeginIf J <= p ThenBegind: =d+1; EndElseBegind: =d — 1; End; A[nFirst, J]: =d; A[nLast, J]: =d; End; d: =0; For I: =nFirst To nLast DoBeginIf I <= p ThenBegind: =d+1; EndElseBegind: =d — 1; End; A[I, nFirst]: =d; A[I, nLast]: =d; End; d: =0; nFirst: =nFirst+1; nLast: =nLast — 1; End; For I: =1 To N DoBeginFor J: =1 To N DoWrite (A[I, J], '); WriteLn; End; ReadLn; End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?