Дан массив в(n*m) ).элементы массива ввести случайным образом.найти сумму элементов в каждой строке, больших среднего арифметического элементов данной строки паскаль
// 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.
Открытая архитектура- это архитектура компьютера, любого перефирийного устройства(устройства ввода-вывода) или ПО (программного обеспечения), на которые опубликованы спецификации(документ, в котором указаны все узлы и детали изделия), то есть любой производитель может разработать дополнительные устройства к системам с открытой архитектурой Принцип открытой архитектуры заключается в том, что производитель не скрывает узлы и детали, из которых состоит компьютер. Они могут быть легко заменены другими. Большинство современных компьютеров- с открытой архитектурой. Обратный пример- с закрытой архитектурой это продукция Apple (айфон,айпад, макбук), к которым не подходят детали других производителей По просту говоря, к любому компьютеру можно подключить любой принтер, мышку или другой гаджет не важно какого производителя
procedure VoTeRaz(f:text;n:integer;s:string); begin writeln('Было:'); assign(f,'Input.txt'); reset(f); while not(Eof(f)) do begin read(f,n); write(n,' '); if n>7 then n:=n*(n div 7); s:=s+inttostr(n)+' '; end; delete(s,length(s),1); close(f); assign(f,'Input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('Стало:'); write(s); writeln; end;
function VoTeDva(f:text;n:integer;s:string):integer; begin writeln('Было:'); assign(f,'Input.txt'); reset(f); while not(Eof(f)) do begin read(f,n); write(n,' '); if n>7 then n:=n*(n div 7); s:=s+inttostr(n)+' '; end; delete(s,length(s),1); close(f); assign(f,'Input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('Стало:'); write(s); writeln; VoTeDva:=0; end;
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