Ответы на вопрос:
Var a: array[1..13,1..13] of integer; i,j,n,m,k,c: integer; begin randomize; n: =random(13)+1; m: =n div 2 +2; writeln('исходный массив(',n,'): '); for i: = 1 to n do begin for j: = 1 to n do begin a[i,j]: =random(n*2+1)-n; write(a[i,j]: 3,' '); end; writeln end; k: =1; if (n> 2) then begin c: =a[m,n-m+2]; for i: = m to n do for j: = n-i+2 to i-1 do if a[i,j] < > c then k: =0; if k < > 0 then writeln('да') else writeln('нет') end else writeln('в массиве нет элементов ниже главной и побочной диагоналей.'); end.
Популярно: Информатика
-
voskobonikov1229.12.2020 12:34
-
kanyamax17.04.2023 21:09
-
АлександрЧерепов28.11.2021 04:59
-
ariko01029.01.2023 10:55
-
Мессалина116.04.2022 02:55
-
nbkmrf19.07.2020 14:40
-
smalik831.01.2020 16:04
-
Nenormalnyi07.03.2020 03:34
-
PesBarboss28.11.2021 04:17
-
roma28027430.09.2021 15:16