[решено] Задачи в паскале - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] Задачи в паскале (http://forum.oszone.net/showthread.php?t=177360)

Задачи в паскале

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

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

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

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

Код:

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.

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

Код:

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. Задачи очень легкие.

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