Дан массив В(n*m) ).Элементы массива ввести случайным образом.Найти сумму элементов в каждой строке, больших среднего арифметического элементов данной строки Паскаль
Ответы
Ответ дал:
0
// 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
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
Ответ дал:
0
идеально, спасибо
Ответ дал:
0
Пожалуйста
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад