Паскаль: Найти количество элементов в каждой строке, больших (меньших) среднего арифметического элементов данной строки.

Предыдущий
вопрос Следующий
вопрос

Для этой задачи мы можем написать следующий код на Паскале:

program CountElementsAboveAvg;
const
rows = 3;
cols = 4;
type
matrix = array [1..rows, 1..cols] of integer;
var
arr: matrix;
i, j, sum, count: integer;
avg: real;
begin
// Заполнение матрицы и подсчет среднего арифметического
sum := 0;
for i := 1 to rows do
begin
for j := 1 to cols do
begin
write('Введите элемент arr[', i, '][', j, ']: ');
readln(arr[i][j]);
sum := sum + arr[i][j];
end;
end;
avg := sum / (rows * cols);
// Подсчет количества элементов больших и меньших среднего арифметического
for i := 1 to rows do
begin
count := 0;
for j := 1 to cols do
begin
if arr[i][j] > avg then
count := count + 1;
end;
writeln('Строка ', i, ': количество элементов больше среднего - ', count);
end;
readln;
end.

Этот код позволяет вам ввести элементы матрицы, вычислить их среднее арифметическое и подсчитать количество элементов в каждой строке, которые больше среднего. Вы можете легко изменить код, чтобы подсчитать количество элементов меньших среднего или добавить функции для вывода результатов для каждой строки.