переместить все элементы квадратной матрицы расположены ниже главной диагонали.
№ 1 | Автор: 777 |
2012-02-21, 20:53
|
Репутация: [ + 0 ]
|
|
|
№ 1 | Автор: 777 |
2012-02-21, 20:53
|
Репутация: [ + 0 ]
|
|
|
|
var
a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
i,j,n,m,c:integer;
begin
c:=1;
read(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
for j:=1 to m do
if i>j then begin b[c]:=a[i,j];c:=c+1;end;
for i:=1 to c-1 do
write(b[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
