[Паскаль][Матрица][Столбцы]

[BackSlash]

Добрый день.
Есть задача:
Дана целочисленная матрица R размером 7х8. В каждом столбце матрицы определить количество четных положительных значений и сформировать из них одномерный массив D.

не могу понять как заставить проходить цикл по столбцам.
По строкам понятно, а по столбцам незнаю как.

Толкового пока мало написал, только ввод и ,собственно, все...

uses crt;
type Matrix = array[1..7,1..8] of integer;
var kolvo, max: integer;
     m: Matrix;
begin
clrscr;
for i := 1 to 7 do
  for j := 1 to 8 do
    read(m[i, j]);





readln;
end.

Буду благодарен если кто-нибудь поможет.
Спасибо.

[Vanta11a]

Элемент матрицы

a1[i,j]

где i - номер в строке, j - номер в столбце.

Соответственно просто меняй j, чтобы идти по столбцу.
Прошел столбец - увеличиваешь i на 1, сбрасываешь j и идешь по следующему столбцу.

[BackSlash]

написал следующее

 
uses crt;
type Matrix = array[1..7,1..8] of integer;
type Matrix1 = array[1..8] of integer;

var kolvo, max: integer;
     m: Matrix;
     m1:Matrix1;
begin
clrscr;
for i := 1 to 7 do
  for j := 1 to 8 do
    read(m[i, j]);

for j := 1 to 8 do
      if ( m[i, j] mod 2=0 AND m[i, j]>0 ) then  m[i, j]=m1[j];
      end;



readln;
end.

теперь мне непонятно как "Прошел столбец - увеличиваешь i на 1"
Это и есть столбец. Как тут увеличить i (то есть номер строки) именно после прохождения 8 ячеек стобца?

[BackSlash]

По моему окончательный вариант выглядит так:

for j:=1 to 8 do
 begin
   for i:=1 to 7 do
    if ((m[i,j] mod 2=0) AND m[i,j]>0) then
end;

[BackSlash]

Подскажите теперь как сформировать массив D здесь, и записывать в него числа.
А так я только вывод могу сделать под if но это будет не массив.

[BackSlash]

uses crt;
type Matrix = array[1..7,1..8] of integer;
type Matrix1 = array[1..56] of integer;

var i,j: integer;
     m: Matrix;
     m1:Matrix1;
Begin
randomize;
clrscr;

for i := 1 to 7 do
  for j := 1 to 8 do
    m[i,j]:=random(101)-50;

Writeln('Matrica M:');

for i:=1 to 7 do  begin
    for j:=1 to 8 do write(m[i,j]:5);
    writeln;
end;


for j:=1 to 8 do
 begin
   for i:=1 to 7 do
    if ((m[i,j] mod 2=0) AND( m[i,j]>0) ) then m1[i]:=m[i,j];
end;


Writeln('Matrica D:');

for i:=1 to 56 do write(m1[i]:5);writeln;

readln;
end.

почему выводит только 7 цифр? И пропускает некоторые четные положительные?

[Niro]

не могу понять как заставить проходить цикл по столбцам.

for i:=1 to n do
 for j:=1 to m do
   if mas[j,i]....

[BackSlash]

Пробовал как ты показал, тоже самое 7-8 цифр на выходе..

[Niro]

7-8 цифр на выходе..

правильно их и будет восемь, ты прочитал моё сообщение раньше чем я его отредактировал? так я там не внимательно прочитал задание и массив нужен только на 8 элементов, ведь у тебя 8 столбцов, а найти надо

количество четных положительных значений и сформировать из них одномерный массив D

Так что как-то так

for i:=1 to 7 do
 begin
 ch:=ch+1; 
 for j:=1 to 8 do
  if (m[j,i] mod 2=0) AND (m[j,i]>0) then begin
                                             k:=k+1;
                                             newmas[ch]:=k; 
                                          end;
 end;

[BackSlash]

Это не то(
нужно формировать из тех чисел которые в столбцах, которые четны и положительны.