Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите, пожалуйста, решить еще одну задачу!!!
дана матрица размером NXM.Поменять местами столбец с номером 1 и последний из столбцов,содержащих только положительные элементы.Если требуемых столбцов нет,то вывести матрицу без изменений.
1 | Автор: DariaSpeedy | 2011-05-17, 22:30   |  Репутация: [ + 0 ]
var a:array[1..100,1..100] of integer; n,m,i,j,k,c:integer;
begin
read (n,m);
for i:=1 to n do
for j:=1 to m do
read (A[i,j]);
c:=m+1;
repeat
c:=c-1;
k:=1;
for j:=1 to n do begin
if A[j,c]<0 then k:=0; end;
until (c=1) or (k<>0);
if k<>0 then begin
for i:=1 to n do begin
k:=A[i,c];
A[i,c]:=A[i,1];
A[i,1]:=k; end; end;
for i:=1 to n do begin
for j:=1 to m do
write (A[i,j],#32); writeln; end;
readln
end.
2 | Автор: HWOARANG | 2011-05-18, 19:57   |  Репутация: [ + 20 ]
2 | Автор: HWOARANG | 2011-05-18, 19:57   |  Репутация: [ + 20 ]
Quote (HWOARANG)
c:=m+1;

он в этом месте ошибку выдает
3 | Автор: DariaSpeedy | 2011-05-18, 21:07   |  Репутация: [ + 0 ]
Какой номер ошибки и текст после номера? После чего выдает, при компиляции или во время ввода?
4 | Автор: HWOARANG | 2011-05-18, 23:12   |  Репутация: [ + 20 ]
4 | Автор: HWOARANG | 2011-05-18, 23:12   |  Репутация: [ + 20 ]
DariaSpeedy

Что у тебя с Паскалем, ёмаё?:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
5 | Автор: Berestovskiy | 2011-05-18, 23:54   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: