обнуление отрицательных столбцов

[Alex11223]

upd: ой, невнимательно задание прочитал, показалось надо заменить тот столбец, а не вставить после него. Тогда надо n+1. Вот правильный вариант )

//объявление переменных, заполнение массива и т.д.
k:=0;
lastcol:=0;
for i:=1 to n do 
begin
    if k=m then lastcol:=i-1;
    k:=0;
    for j:=1 to m do 
       if a[i,j]<0 then
          inc(k);
end;
if lastcol > 0 then
    for i:=1 to m do
        a[i, lastcol+1]:=0;
//вывод массива и т.д.

upd2 : точнее m+1, а не n. n — столбцы, m — строки.
upd3: тьфу, опять перепутал строки и столбцы в задании. все правильно, n+1

[prelest']

const
n=5;
m=6;
var
A:array [1..m,1..n+1] of integer;
i,j,k, lastcol:integer;
begin
randomize;
j:=n;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20)+30;
write(a[i,j],' ');
end;
writeln;
end;
k:=0;
lastcol:=0;
for i:=1 to n do
begin
if k=m then lastcol:=i-1;
k:=0;
for j:=1 to m do
if a[i,j]<0 then
inc(k);
end;
if lastcol > 0 then
for i:=1 to m do
a[i, lastcol+1]:=0;



writeln(' ');
end.

[prelest']

посмотри, правильно теперь?

[Alex11223]

Random
Random(201)-100 — от -100 до 100


И используй тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

[prelest']

И используй тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

а как это?

[Alex11223]

Когда сообщение пишешь или редактируешь сверху есть значок как символ # Он вставляет тег [CODE] [/CОDE], внутри которого код сохраняет исходное форматированние и т.д. Или можно просто вставить код, выделить и нажать на эту кнопку. Аналогично "цитата", выделение, подчеркивание и т.п.

[prelest']

const
n=5;
m=6;
var
A:array [1..m,1..n+1] of integer;
i,j,k, lastcol:integer;
begin
randomize;
j:=n;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20)+30;
write(a[i,j],' ');
end;
writeln;
end;
k:=0;
lastcol:=0;
for i:=1 to n do
begin
if k=m then lastcol:=i-1;
k:=0;
for j:=1 to m do
if a[i,j]<0 then
inc(k);
end;
if lastcol > 0 then
for i:=1 to m do
a[i, lastcol+1]:=0;



writeln(' ');
end.

посмотри с самого начало до конца, вывод у меня не полный да?

[Alex11223]

Ну в конце надо еще раз вывести массив, наверно. Про рандом выше написано. И цитата это не тоже самое, что

upd: а, опять строки и столбцы в выводах перепутаны. исправил

[Alex11223]

Что-то туплю уже. Вот почти правильный вариант, утром исправлю если не получится или никто до утра не поправит

 const
  n = 5;
  m = 6;

var
  A: array [1..m, 1..n+1] of integer;
  i, j, k, lastcol: integer;

begin
  randomize;
  j := n;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 100;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  k := 0;
  lastcol := 0;
  for i := 1 to n do
  begin
    if k = n then lastcol := i;
    k := 0;
    for j := 1 to m do
      if a[i, j] < 0 then
        k:=k+1;
  end;
  if lastcol > 0 then
    for i := 1 to n do
      a[ i, lastcol + 1 ] := 0;
  
  writeln;
  for i := 1 to m do
  begin
    for j := 1 to n+1 do
      write(a[i, j]:4);
    writeln;
  end;

[Sparkman]

uses crt;
const n=4;{ - количество строк}
      m=3; { - количество столбцов}
var a:array[1..n,1..m+1] of integer;
    i,j,d:integer;
    f:byte;
begin
     clrscr;
     randomize;
     {заполняем матрицу случайными числами по колонкам}
     for j:=1 to m do
     begin
          {для того чтобы в матрице появлялись столбцы}
          {с отрицательными значениями, ввел понятие дельты (d)}
          {и в зависимости от значения флага (f)}
          {присваиваю значение дельты (d): 5 - разные числа}
          {или 11 - столбец с только отрицательными значениями}
          f:=random(2)-1;
          if f=0 then d:=5 else d:=11;
          for i:=1 to n do
          a[i,j] := random(10)-d;
     end;
     {выводим на экран то, что получилолсь}
     writeln('Matrix:');
     for i:=1 to n do
     begin
          for j:=1 to m do
          write(a[i,j]:3);
          writeln;
     end;
     {используем флаг для выявления отрицательности}
     {последнего столбца матрицы, f=1 когда все значения}
     {последнего столбца матрицы отрицательные}
     f:=1;
     for i:=1 to n do
     if a[i,m]>0 then
     begin
          f:=0;
          break;
     end;
     writeln;
     {выводим результат в зависимости от флага}
     writeln('Result:');
     if f=1 then
     begin
          {заполняем последний ("новый", m+1) столбец нулями}
          {хотя он итак весь нулями заполнен}
          for i:=1 to n do a[i,m+1]:=0;
          {выводим матрицу на экран}
          for i:=1 to n do
          begin
               for j:=1 to m+1 do write(a[i,j]:3);
               writeln;
          end;
     end else
          {выводим матрицу без изменений на экран}
          for i:=1 to n do
          begin
               for j:=1 to m do write(a[i,j]:3);
               writeln;
          end;
     readln;
end.

пс: только не говорите, что вы динамические массивы проходите (проходили) , а то все вышесказанное всеми будет не верным