Матрицы.Паскаль.

[superorakul]

дана квадратная матрица размерности n определить сумму элементов в тех столбцах которые не содержат отрицательных элементов

[ZX Spectrum-128]

Какие-нибудь наработки есть у вас?

[superorakul]

Сообщение от ZX Spectrum-128

Какие-нибудь наработки есть у вас?

неа яб тогда не спрашивал я вообще не понимаю как и что делать

[ZX Spectrum-128]

Ну, ввод матрицы то сможете организовать?

[superorakul]

Сообщение от ZX Spectrum-128

Ну, ввод матрицы то сможете организовать?

а ну да это смогу

[Serge_Bliznykov]

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

а ну да это смогу

ну так организовывайте!
Пишите код, который ввод (формирует) матрицу.
Выкладывайте его на форум, в данную тему.
Вам помогут дописать то, что у Вас не получается

[superorakul]

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

ну так организовывайте!
Пишите код, который ввод (формирует) матрицу.
Выкладывайте его на форум, в данную тему.
Вам помогут дописать то, что у Вас не получается

uses CRT;
const
  n = 5; m = 4;
  k1 = 10;
  k2 = 2 * k1 + 1;
type
  vec = array[1..n] of integer;
  mat = array[1..n, 1..m] of integer;
var
  arr_mat: mat;
  arr_vec: vec;
  s: integer;
  i, j, f: byte;
begin
  ClrScr;
  Randomize;
  Writeln('исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      f := Random(k2);
      arr_mat[i, j] := k1 - f;
      Write(arr_mat[i, j]: 6);
    end;
    Writeln;
  end;
end.

сформировал а как посчитать хз



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

сразу же ошибка (ну, скорее не соответствие заданию)!

const
  n = 5; m = 4;
  mat = array[1..n, 1..m] of integer;

дана квадратная матрица размерности n

видите в чём ошибка?


теперь по поводу

как посчитать

тех столбцах которые не содержат отрицательных элементов

var isNegative : boolean;
....

for j:=1 to n do begin {перебор всёх столбцов матрицы}
  isNegative := false; {изначально считаем, что в J-м столбце нет отрицательных элементов}
  i := 1;
  while (i<=n) and Not isNegative do begin
    if arr_mat[ i, j] < 0 then  isNegative := true;
    inc(i);
  end;
  if isNegative 
       then {значит в J-м столбце матрицы есть отрицательные элементы}
       else {значит в J-м столбце матрицы НЕТ отрицательных элементов}

ну, теперь, когда столбец нужный найден, сумму элементов в столбце J, надеюсь, сможете самостоятельно подсчитать?!

[superorakul]

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

сразу же ошибка (ну, скорее не соответствие заданию)!




видите в чём ошибка?


теперь по поводу

var isNegative : boolean;
....

for j:=1 to n do begin {перебор всёх столбцов матрицы}
  isNegative := false; {изначально считаем, что в J-м столбце нет отрицательных элементов}
  i := 1;
  while (i<=n) and Not isNegative do begin
    if arr_mat[ i, j] < 0 then  isNegative := true;
    inc(i);
  end;
  if isNegative 
       then {значит в J-м столбце матрицы есть отрицательные элементы}
       else {значит в J-м столбце матрицы НЕТ отрицательных элементов}

ну, теперь, когда столбец нужный найден, сумму элементов в столбце J, надеюсь, сможете самостоятельно подсчитать?!

спасибо огромное да смогу как допишу...скину
проверишь же да?

[Serge_Bliznykov]

спасибо огромное

Пожалуйста большое!

проверишь же да?

конечно. не я, так другой кто-нибудь (тут спецов по Паскалю полно!)