Предмет: Информатика,
автор: koroleva1089
Найти количество элементов квадратной матрицы, значения которых выше среднего арифметического значения матрицы.
Напишите, пожалуйста, программу на Паскале.
Ответы
Автор ответа:
0
const n = 5;
var
a: array[1..n, 1..n] of integer;
i, j, s, k: integer;
sr: real;
begin
s := 0;
for i:=1 to n do
for j:=1 to n do
begin
readln(a[i, j]);
s:=s+a[i, j];
end;
sr := s / sqr(n);
k := 0;
for i:=1 to n do
for j:=1 to n do
if a[i, j] > sr then
inc(k);
writeln(k);
end.
var
a: array[1..n, 1..n] of integer;
i, j, s, k: integer;
sr: real;
begin
s := 0;
for i:=1 to n do
for j:=1 to n do
begin
readln(a[i, j]);
s:=s+a[i, j];
end;
sr := s / sqr(n);
k := 0;
for i:=1 to n do
for j:=1 to n do
if a[i, j] > sr then
inc(k);
writeln(k);
end.
Похожие вопросы
Предмет: Обществознание,
автор: golovdanil19
Предмет: Алгебра,
автор: amestrisq
Предмет: Физкультура и спорт,
автор: milaevd6
Предмет: Информатика,
автор: tttoihqweh