• (Для студентов)PascalABC.Net
    Дана действительная матрица размером n*m. Найти среднее арифметическое каждого из столбцов, имеющих четные номера. Подсчет среднего арифметического оформить функцией.

    Напишите код программы.

Ответы 3

  • От души)
  • Нормальное решение... ничего волшебного.
    • Автор:

      kaden694
    • 6 лет назад
    • 0
  • PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018Внимание! Если программа не работает, обновите версию!function mean(Self:sequence of real):real; extensionmethod;begin  Result:=Self.Averageend;begin  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');  var a:=MatrGen(n,m,(i,j)->(Random(9000)+1000)/100);  Writeln('*** Исходная матрица [',n,',',m,'] ***');  a.Println(6,2); Writeln(6*a.ColCount*'-');  Writeln('Средние значения по четным столбцам');  SeqGen(m div 2,t->2*t-1,1).Select(j->a.Col(j).mean).Printlnend.
    answer img
    • Автор:

      judaht0ed
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years