Среднее арифметическое элементов матрицы - Из кода сделать процедуру - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Решение задачи: «Среднее арифметическое элементов матрицы - Из кода сделать процедуру»

textual
Листинг программы
var
  n, m: integer;
 
procedure foo(n, m: integer);
var
  i, j, s, k: integer; 
  sa: real;
  t: array [1..100, 1..100] of integer;
begin
  for i := 1 to n do
    for j := 1 to m do
    begin
      write('t[', i, ',', j, ']=');
      readln(t[i, j]);
    end;
  s := 0; 
  k := 0;
  for i := 1 to n do
    for j := 1 to m do
      if t[i, j] <> 0 then
      begin
        s := s + t[i, j];
        k := k + 1;
      end;
  sa := s / k;
  writeln('Матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(t[i, j], ' ');
    writeln;
  end;
  writeln('Среднее арифметическое элементов матрицы = ', sa:2:2);
end;
 
begin
  writeln('Введите n,m');
  readln(n, m);
  foo(n, m);
end.

Объяснение кода листинга программы

  1. Введенные значения n и m считываются из стандартного ввода
  2. Создается матрица t размером 100x100 для хранения значений элементов
  3. С помощью двух вложенных циклов считываются значения элементов матрицы t
  4. Переменная s инициализируется нулем, k инициализируется единицей
  5. Два вложенных цикла с условием проходят по всем элементам матрицы t. Если элемент не равен нулю, то он прибавляется к переменной s, а переменная k увеличивается на единицу.
  6. Переменная sa вычисляется как среднее арифметическое элементов матрицы t, используя значение k
  7. С помощью двух вложенных циклов выводятся все элементы матрицы t через пробел
  8. Выводится значение переменной sa
  9. Код завершается

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы