Дана матрица M(4*4). Определить количество особых элементов массива. Элемент считается особым, если он больше суммы остальных элементов своего столбца.
Answers & Comments
pacixor
Var M: array [1 .. 4, 1 .. 4] of integer; i, j, k, sum: integer; count: byte;
begin for i := 1 to 4 do begin for j := 1 to 4 do begin M[i, j] := random(16); write(M[i, j]:4); end; writeln; end;
for i := 1 to 4 do begin sum := 0; for j := 1 to 4 do sum := sum + M[j, i]; for j := 1 to 4 do if (M[j, i] > sum - M[j, i]) then Inc(count); end; writeln('Количество особых элементов = ', count);
Answers & Comments
M: array [1 .. 4, 1 .. 4] of integer;
i, j, k, sum: integer;
count: byte;
begin
for i := 1 to 4 do
begin
for j := 1 to 4 do
begin
M[i, j] := random(16);
write(M[i, j]:4);
end;
writeln;
end;
for i := 1 to 4 do
begin
sum := 0;
for j := 1 to 4 do
sum := sum + M[j, i];
for j := 1 to 4 do
if (M[j, i] > sum - M[j, i]) then
Inc(count);
end;
writeln('Количество особых элементов = ', count);
end.