Код
uses Crt;
const
n=4;
var a:array[1..n,1..n] of integer;
v:array[1..n] of integer;
i,j,k,b:integer;
begin
ClrScr;
for i:=1 to n do begin
for j:= 1 to n do
read(a[i,j]);
writeln;
end;
b:=2;
ClrScr;
for i:= 1 to n do
begin
for j:= 1 to n do
v[i]:=abs(v[i]+(a[i,j])*b);
end;
for i:=1 to n do
writeln('summa stroki nomer',' ',i,':>',' ',v[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if v[i]>v[j] then begin
k:=v[i];
v[i]:=v[j];
v[j]:=k;
end;
writeln('elementu yporjadochenue po vozrostaniu');
for i:= 1 to n do
writeln(v[i]);
end.
только насчет к-ой строкия не поняла, это каждый елемент строки умножить на заданое число или как? для каждой строки свое заданое число так как я взяла одно для всех строк. уточни:p2: