Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помощь
переместить все элементы квадратной матрицы расположены ниже главной диагонали.
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
2 | Автор: Berestovskiy | 2012-02-21, 20:58   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: