В заданной матрице сформированной случайно вставить второй столбец перед всеми стольбцами,в которых нет отричательных элементов. Не могу найти ошибку...логическая...
program Project4;
{$APPTYPE CONSOLE}
uses SysUtils; var n,m,i,j:integer; a,b:array of array of integer; flag:boolean; begin randomize; writeln('vvedite razmernost matricy(lines):'); readln(n); //вводим размерность writeln('vvedite razmernost matricy(columns):'); readln(m); setlength(a,n,m); setlength(b,n,m); writeln('Ischodnay matrica razmerom ',n,'X',m,':'); writeln; for i:=0 to n-1 do begin for j:=0 to m-1 do begin a[i,j]:=random(11)-5; write(a[i,j]:3,' ') end; writeln end; //заполняем
for j:=0 to m-1 do begin flag:=true;i:=0; while (i<=n-1)and(flag=true) do begin if a[i,j]>0 then flag:=true else flag:=false; i:=i+1 end;
if flag=true then begin m:=m+1; setlength(b,n,m); for i:=0 to n-1 do begin b[i,j]:=a[i,1]; b[i,j+1]:=a[i,j] end; end else for i:=0 to n-1 do b[i,j]:=a[i,j];end; writeln('Konechnay matrica razmerom ',n,'X',m,':'); writeln; for i:=0 to n-1 do begin // вывод for j:=0 to m-1 do write(b[i,j]:3,' '); writeln end; readln { TODO -oUser -cConsole Main : Insert code here } end.
Сообщение отредактировано: Svetlana - 6.06.2009 0:31