В двумерном массиве, в каждоый строке сначала разместить положительные эелементы, потом отрицательные эел

[Катя)]

Прошу помочь с решением.

Задача: В двумерном массиве, в каждоый строке сначала разместить положительные эелементы, потом отрицательные эелементы.

Заранее благодарю)

[phomm]

Ну мы-то такую задачу сделаем, а вот вы-то ??? где что вы можете показать ? в чем у вас проблема РЕШЕНИЯ ? ответ "во всем" не подходит , в этом случае сразу называйте цену.

А пока я вам помогу вот чем : чтобы решить задачу и написать программу на паскале надо : обяъвить перменные, в главном теле программы обознавить ввод данных от пользователя (если необходим ввод, а также и вывод текста для запроса у пользователя), произвести некие манипуляции, в вашем случае перебор массива при помощи циклов и на каждом шаге сравнение с нулем и перенос по результатам сравнения. после чего вывод отсортированного массива.

Удачи!

[Летучий_СкилетиК]

сделаем как советует phomm:

//вводим массив
...
for i := 1 to n do
begin
    for j := 1 to n - 1 do
       for jj := j + 1 to n do
         if a[i,j] > a[i,jj] then
         begin
              t:=a[i,j];
              a[i,j] := a[i,jj];
              a[i,jj] := t;
         end;
end;
//выводим отсортированный массив
...

[Катя)]

phomm, я конечно все понимаю, но отчитывать меня здесь не надо!
с мобилы много наработок не напишешь

Летучий_СкилетиК, спасибо, попробую сейчас

[Катя)]

Program bs;
Type m=array[1..20,1..20] of integer;
Var a:m;
    k,n,i,j,g,p  :integer;
    
Begin
  writeln('Vvedite K and N');
  readln(k,n);
For i:=1 to k do
For j:=1 to n do

begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
end;

for i:=1 to n do
for j:=1 to k-1 do
for g:=j+1 to n do
begin
 if a[i,j] < a[i,g] then
                     begin
                     p:=a[i,j];
                     a[i,j]:=a[j,g];
                     a[i,g]:=p;
                      end;
              for i:=1 to k do
 begin
  for j:=1 to n do
  write(a[i,j],' ');
  writeln;
end;

end;

end.

понять почему не работает, раньше хоть выводилось, сейчас нет
разные варианты перепробывала

[MyLastHit]

Первое что бросается в глаза, почему вы в цикле:

for j:=1 to k-1 do

написали под конец цикл:

for j:=1 to n do

Так делать нельзя. Что-то намудрили в begin и end...

[MyLastHit]

Вот:

Type m=array[1..20,1..20] of integer;
Var a:m;
    k,n,i,j,g,p  :integer;
    
Begin
  writeln('Vvedite K and N');
  readln(k,n);
  For i:=1 to k do
  For j:=1 to n do 
  begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
  end;
  for i:=1 to n do
    for j:=1 to k-1 do
      for g:=j+1 to n do
      if a[i,j] < a[i,g] then
      begin
        p:=a[i,j];
        a[i,j]:=a[j,g];
        a[i,g]:=p;
      end;
  for i:=1 to k do
    begin
      for j:=1 to n do
      write(a[i,j],' ');
      writeln;
    end;
  readln;
end.

[Катя)]

Сообщение от MyLastHit

\
Так делать нельзя. Что-то намудрили в begin и end...

да уже на абум ставила
сейчас проверю, спасибо