Ответы на вопрос:
Program z_3; uses crt; const n=5; var i,j,s,d: byte; a: array[1..5,1..5]of byte; begin for i: =1 to n do begin for j: =1 to n do begin if (i=1+s)and(j=n-s) then begin d: =1; a[i,j]: =10; end; if d=0 then a[i,j]: =1 else if (i=1+s)and(j=n-s) then a[i,j]: =10; write(' ',a[i,j],' '); end; writelns: =s+1; d: =0; end; end.program z_4; uses crt; const n=5; var i,j,m: byte; a: array[1..5,1..5]of byte; beginm: =1; j: =n; for j: =n downto 1 do for i: =1 to n dobegin a[j,i]: =m; m: =m+1; end; end; for i: =1 to n dobegin for j: =1 to n doif a[i,j]< 10 then write(' 0',a[i,j],' ') else write(' ',a[i,j],' '); writeln; end; end.
Популярно: Информатика
-
prestigpad01.05.2021 22:57
-
Lilu70027.04.2020 12:32
-
arzunurieva01.06.2023 13:43
-
слава49907.05.2021 01:57
-
zakopirinina05.12.2022 12:18
-
Faulmaran12.11.2022 13:11
-
Школьник252512.01.2020 22:44
-
самая2916.06.2020 04:12
-
elviracernosazo26.07.2022 20:13
-
Шляпа0021.09.2020 02:21