Среднее арифметическое наибольшего и наименьшего значений элементов матрицы ниже главной диагонали - Turbo Pascal

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

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

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

Решение задачи: «Среднее арифметическое наибольшего и наименьшего значений элементов матрицы ниже главной диагонали»

textual
Листинг программы
  1. uses crt;
  2. const nmax=15;
  3. var a:array[1..nmax,1..nmax] of real;
  4.     m,n,i,j,x:byte;
  5.     mn,mx:real;
  6. begin
  7. clrscr;
  8. randomize;
  9. repeat
  10. write('Количество строк от 2 до ',nmax,' n=');
  11. readln(n);
  12. until n in [1..nmax];
  13. repeat
  14. write('Количество столбцов от 2 до до ',nmax,' m=');
  15. readln(m);
  16. until m in [1..nmax];
  17. writeln('Исходная матрица:');
  18. for i:=1 to n do
  19.  begin
  20.   for j:=1 to m do
  21.    begin
  22.     a[i,j]:=9*random;
  23.     write(a[i,j]:5:2);
  24.    end;
  25.   writeln;
  26.  end;
  27. mn:=a[2,1];
  28. mx:=a[2,1];
  29. if n>m then x:=m else x:=n;
  30. for i:=2 to x do
  31. for j:=1 to i-1 do
  32.  begin
  33.   if a[i,j]<mn then mn:=a[i,j];
  34.   if a[i,j]>mx then mx:=a[i,j];
  35.  end;
  36. writeln('Минимальное  значение ниже главной диагонали=',mn:0:2);
  37. writeln('Максимальное значение ниже главной диагонали=',mx:0:2);
  38. writeln('Их среднее=',(mn+mx)/2:0:2);
  39. readln
  40. end.

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

  1. Создается переменная nmax и присваивается ей значение 15.
  2. Создается переменная a типа array[1..nmax,1..nmax] of real;.
  3. Создаются три переменные m, n и i типа byte.
  4. Создаются две переменные mn и mx типа real.
  5. Выполняется цикл repeat, который запрашивает у пользователя количество строк и столбцов матрицы.
  6. Внутри цикла repeat выводится сообщение с запрошенными значениями.
  7. Вычисляются минимальное и максимальное значения матрицы.
  8. Выводится сообщение с найденными значениями.
  9. Вычисляется среднее арифметическое из минимального и максимального значений.
  10. Выводится сообщение с найденным значением среднего арифметического.
  11. Выполняется цикл readln, чтобы дождаться ввода пользователя.

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


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

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

15   голосов , оценка 4.267 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы