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

Бегемотик397 Бегемотик397    2   13.07.2019 23:50    0

Ответы
Лютаяяяя Лютаяяяя  31.07.2020 13:16
// PascalABC.NET 3.0, сборка 1128
begin
  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;
  Writeln
end.

Тестовое решение:
Число строк: 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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика