• Дан массив В(n*m) ).Элементы массива ввести случайным образом.Найти сумму элементов в каждой строке, больших среднего арифметического элементов данной строки Паскаль

Ответы 3

  • идеально, спасибо 
    • Автор:

      jethpdq
    • 6 лет назад
    • 0
  • Пожалуйста
  • // PascalABC.NET 3.0, сборка 1128begin  var m:=ReadInteger('Число строк:');  var n:=ReadInteger('Число колонок');  var a:=MatrixRandom(m,n,-10,20);  Writeln('Сгенерированный массив');  for var i:=0 to m-1 do begin    for var j:=0 to n-1 do Write(a[i,j]:4);    Writeln    end;  Writeln('Найденные суммы');  for var i:=0 to m-1 do begin    var avg:=0.0;    for var j:=0 to n-1 do avg+=a[i,j];    avg/=n;    var s:=0;    for var j:=0 to n-1 do      if a[i,j]>avg then s+=a[i,j];    Write(s,' ')    end;  Writelnend.Тестовое решение:Число строк: 5Число колонок 7Сгенерированный массив  19  14  -6  -8   2  -3  11   2  -8  -9  18   6  -6  -9  -5  -1   2  -6  -6  15  -4  13  19   2   6 -10   5  15  13   1   0  -2  -8  20  18Найденные суммы44 26 17 47 51
    • Автор:

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

Войти через Google

или

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

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

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