Question

Паскаль программирование!! Срочно нужна помощь Дана прямоугольная матрица действительных чисел. Найти количество строк, среднее арифметическое элементов которых меньше заданной величины.

Answer 1

Решение в прикреплённом файле.

Answer 2

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

Ниже приведен код программы, который решает данную задачу:

program FindRows;

const
  rows = 3; // количество строк в матрице
  cols = 4; // количество столбцов в матрице

var
  matrix: array [1..rows, 1..cols] of real; // объявление матрицы
  threshold: real; // заданная величина
  i, j: integer; // переменные для циклов
  count: integer; // счетчик количества строк
  sum: real; // переменная для суммы элементов строки
  average: real; // переменная для среднего арифметического

begin
  // Ввод данных
  writeln('Введите элементы матрицы:');
  for i := 1 to rows do
    for j := 1 to cols do
    begin
      write('matrix[', i, '][', j, ']=');
      readln(matrix[i, j]);
    end;
  
  writeln('Введите заданную величину:');
  readln(threshold);
  
  // Поиск количества строк
  count := 0;
  for i := 1 to rows do
  begin
    sum := 0;
    for j := 1 to cols do
      sum := sum + matrix[i, j];
    average := sum / cols;
    if average < threshold then
      count := count + 1;
  end;
  
  // Вывод результата
  writeln('Количество строк, среднее арифметическое элементов которых меньше заданной величины: ', count);

end.

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

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