Joswyn
6 год назад
CРОЧНО!!!!!
Дана квадратная матрица А(n× n). Найти количество отрицательных
элементов в заштрихованной части.
ОТВЕТЫ
Saolsalni
Jul 4, 2019
Const max = 100;
var i,j,k,m,n: integer;
a: array[1..max,1..max] of integer;
begin
write(n = ); readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln;
end;
k:=0; m:=n div 2;
if m*2lt;n then m:=m+1;
for i:=1 to m do
for j:=(n-i+1) to n do
begin
if (a[i,j]lt;0) then k:=k+1;
if ((a[i,j]lt;gt;a[n-i+1,j]) and (a[n-i+1,j]lt;0))
then k:=k+1;
end;
writeln(количество отрицательных элементов: ,k);
end.
n = 5
-48 35 -41 -16 18
-40 -2 -49 25 -12
34 -19 -10 40 -21
14 -28 -34 49 46
-30 45 -13 41 31
количество отрицательных элементов: 3
var i,j,k,m,n: integer;
a: array[1..max,1..max] of integer;
begin
write(n = ); readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln;
end;
k:=0; m:=n div 2;
if m*2lt;n then m:=m+1;
for i:=1 to m do
for j:=(n-i+1) to n do
begin
if (a[i,j]lt;0) then k:=k+1;
if ((a[i,j]lt;gt;a[n-i+1,j]) and (a[n-i+1,j]lt;0))
then k:=k+1;
end;
writeln(количество отрицательных элементов: ,k);
end.
n = 5
-48 35 -41 -16 18
-40 -2 -49 25 -12
34 -19 -10 40 -21
14 -28 -34 49 46
-30 45 -13 41 31
количество отрицательных элементов: 3
145
Смежные вопросы:
