tex]1 n 0 0 0 * 0 0 0 0 0 * * * 0 0 0 * * * * * 0 * * * * * * * 0 * * * * * 0 0 ...

July 2022 1 1 Report

var A : array [1..n,1..n] of real; (n–нечетно)
Найти сумму элементов из области матрицы А, отмеченной
символом ' * ':
[tex]
\left[\begin{array}{ccccccc}
0&0&0&*&0&0&0\\
0&0&*&*&*&0&0\\
0&*&*&*&*&*&0\\
*&*&*&*&*&*&*\\
0&*&*&*&*&*&0\\
0&0&*&*&*&0&0\\
0&0&0&*&0&0&0
\end{array}\right] [/tex]1 n
0 0 0 * 0 0 0
0 0 * * * 0 0
0 * * * * * 0
* * * * * * *
0 * * * * * 0
0 0 * * * 0 0
n 0 0 0 * 0 0 0

Answers & Comments

жаба88 s:=0;for i:=1 to (n div 2)+1 dofor j:=(n div 2)+1+1-i to (n div 2)+1-1+i do s:=s+a[i,j];for i:=(n div 2)+2 to n dofor j:=(n div 2)+1-(n-i) to (n div 2)+1+(n-i) do s:=s+a[i,j];

1 votes Thanks 0

жаба88 const
n= 7;
m= n div 2 + 1;

var
a: array[1..n,1..n]of integer;

function Rhomb(i,j: integer): integer;
begin
if Abs(i-m)<m-Abs(j-m) then
if i=m then
Rhomb:= a[i,j]+Rhomb(i-1,j)+Rhomb(i+1,j)+Rhomb(i,j+1)
else
Rhomb:= a[i,j]+Rhomb(i+(i-m) div Abs(i-m),j)
else Rhomb:=0
end;

begin
{input a}
WriteLn('Rhomb Summ is: ',Rhomb(m,1));
ReadLn
end.

maraseika немножко не так в решении - Var A : array [1..n,1..n] of real; (n–нечетно)

sozdajte mnozhestvo sostoyashee iz prostyh chisel lt 255 i dayushee pri delenii na

Answer

Answers & Comments

sozdajte mnozhestvo sostoyashee iz prostyh chisel lt 255 i dayushee pri delenii na

рекомендуемые вопросы

Helpful Links

Helpful Social