2)Дан А массив из N элементов. Получить массив В из элементов массива А, расположив их в порядке возрастания - отрицательные элементы затем в порядке убывания положительные элементы.
Напишите плз,на зачет надо,каким нить простеньким методом,если сегодня буду оч оч благодарен.Заранее спасибо.
+ можете проверить задачи и упростить их по двумерному массиву,как нить без inc сделать,альтернативу тип)
{Сформировать вектор, каждый элемент которого равен среднему арифметическому элементов соответствующей строки заданной прямоугольной матрицы А(nxm)} const
n = 2;
m = 3;
var
a: array [1..n,1..m] of double;
vector: array [1..n] of double;
sum: double;
i, j, k: integer;
begin
k := 1;
sum := 0;
for i := 1 to n do
for j := 1 to m do
begin
Writeln ('Input a[', i, ',', j,']');
Readln (a[i,j]);
end;
for i := 1 to n do
begin
for j := 1 to m do
begin
sum := sum + a [i,j];
end;
vector [k] := sum / m;
sum := 0;
inc(k);
end;
for i := 1 to n do
Writeln ( 'vector [', i ,'] = ', vector[i]:0:3);
end.
a11egro добавил 11.12.2007 в 20:36
{Сформировать вектор В=(b1,b2,….bm), каждый элемент которого
определяется как минимальный элемент соответствующего столбца
исходной матрицы А(n,m)}
const
n = 3;
m = 4;
var
a: array [1..n,1..m] of double;
vector: array [1..m] of double;
min: double;
i, j, k: integer;
begin
k := 1;
for i := 1 to n do
for j := 1 to m do
begin
Writeln ('Input a[', i, ',', j,']');
Readln (a[i,j]);
end;
for i := 1 to m do
begin
min := a[1,i];
for j := 1 to n do
begin
if a[j,i] < min then
min := a[j,i];
end;
vector [k] := min;
inc(k);
end;
for i := 1 to m do
Writeln ( 'vector [', i ,'] = ', vector[i]:0:3);
end.
a11egro добавил 12.12.2007 в 11:04
{3)Дана матрица 12х12.
заменить нулями все элементы, расположенные на главное диагонали и выше.}
var
matrix: array [1..12,1..12] of double;
i, j: integer;
begin
for i := 1 to 12 do
for j := 1 to 12 do
begin
Writeln ('Input matrix[', i, ',', j,']');
Readln (matrix[i,j]);
end;
i := 1;
j := 1;
while i <= 12 do
begin
while j <= 12 do
begin
matrix[i,j] := 0;
inc(j);
end;
inc(i);
j := i;
end;
for i := 1 to 12 do
begin
for j := 1 to 12 do
begin
Write ( matrix[i,j]:0:3, ' ');
end;
Writeln('');
end;
end.
