Question

Язык pascal Дана матрица натуральных чисел А(N,N). Найти количество строк, среднее арифметическое которых больше заданного числа.

Answer 1

const  

 n=5;

var

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

 k,i,j,count,sr:integer;

begin

 readln(k); count:=0;

 for i:=1 to n do

   begin

     sr:=0;

     for j:=1 to n do

       begin

         a[i,j]:=random(100);

         write(a[i,j]:4);

         sr:=sr+a[i,j];

       end;

     writeln;

     if sr/n > k then inc(count);

   end;

 writeln(count);

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!

Answer 2

Конечно, я могу помочь с написанием программы на Pascal для решения этой задачи. Давайте разберем шаги:

1. Сначала пользователь вводит матрицу A(N,N) и заданное число.

2. Затем программа вычисляет среднее арифметическое каждой строки матрицы.

3. После этого программа подсчитывает количество строк, среднее арифметическое которых больше заданного числа.

Вот пример кода на Pascal:

program FindRowsAverage;

const
  MaxN = 100; // Максимальный размер матрицы

var
  A: array[1..MaxN, 1..MaxN] of Integer;
  N, TargetNumber, RowCount, i, j: Integer;
  RowSum, Average: Real;

begin
  // Ввод размерности матрицы
  writeln('Введите размерность матрицы N: ');
  readln(N);

// Ввод матрицы A(N,N)
  writeln('Введите элементы матрицы A(N,N): ');
  for i := 1 to N do
    for j := 1 to N do
      readln(A[i, j]);

// Ввод заданного числа
  writeln('Введите заданное число: ');
  readln(TargetNumber);

// Инициализация счетчика строк
  RowCount := 0;

// Перебор строк матрицы
  for i := 1 to N do
  begin
    // Вычисление суммы элементов строки
    RowSum := 0;
    for j := 1 to N do
      RowSum := RowSum + A[i, j];

// Вычисление среднего арифметического
    Average := RowSum / N;

// Проверка, больше ли среднее арифметическое заданного числа
    if Average > TargetNumber then
      RowCount := RowCount + 1;
  end;

// Вывод результата
  writeln('Количество строк, среднее арифметическое которых больше ', TargetNumber, ': ', RowCount);
end.

Этот код предполагает, что все введенные значения являются корректными. Вы можете дополнить программу проверками на корректность ввода для повышения ее надежности.