[решено] Задачи в паскале

[xmairo]

очень сильно прошу помогите пожалуйста решить две задачи в паскале, а то я ни разу не писал

1. Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из четных элементов массива А. Элементы вводятся с клавиатуры. Размер n.

2. Найти номер столбца массива размером MxN, в котором находится наименьшее количествоположительных элементов. Элементы вводятся с клавиатуры.

буду премного благодарен за помощь, заранее спасибо

[von JoSy]

1.


program test;

const n = 8;

var
i, j: integer;
a: array [1..n] of integer;
b: array [1..n] of integer;

begin

for i:=1 to n do read(a[i]);

j:=1;
for i:=1 to n do begin
if a[i] mod 2 = 0 then begin
b[j] := a[i];
j := j+1;
end;
end;


for i:=1 to j-1 do write(b[i], ' ');

end.

[xmairo]

решите пожалуйста вторую

[von JoSy]

program test;

const m = 3;
const n = 4;

var
i, j, nmin, count, countpos: integer;
a: array [1..m] of array [1..n] of integer;

begin

for i:=1 to m do
for j:=1 to n do
read(a[i][j]);

count := 0;
countpos := m;
nmin := 0;

for j:=1 to n do begin
count := 0;
for i:=1 to m do begin
if (a[i][j] > 0) and (countpos = m) then
count := count+1
else if a[i][j] > 0 then
count := count+1;
end;
if count < countpos then begin
countpos := count;
nmin := j;
end;
end;

end.


P.S. Задачи очень легкие.

[xmairo]

я не шарю в этом........ спасибо