Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях

Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.

    Program Z2;
    var m:array[1..10000] of integer;
    i,c,min,N:integer;
    Begin
    min:=320000;
    Writeln('Введите длинну массива');
    Readln(N);
    For i:=1 to N do begin
    Writeln('Введите элемент массива');
    Readln(m[i]);
    If (m[i]>0) and (min>m[i]) then begin min:=m[i]; c:=i;
    end;
    end;
    writeln('минимальный среди положительных эллементов массива=',min, 'его номер=',c);
    end.

     

  • 1)

    (Проверено и откомпелировано на Pascal.NET,Если есть вопросы, пишите)

    Program Z1;
    var m:array[1..12] of integer;
    k,i,c:integer;
    Begin
    k:=-2;
    c:=0;
    For i:=1 to 10 do begin
    m[i]:=k;
    if k>0 then begin k:=k+2; k:=-k; c:=1; end;
    if (k<0) and (c<>1) then begin k:=k-2; k:=-k; end;
    write(m[i],' ');
    c:=0;
    end;
    end.

     

    2)

    Program Z3;
    var m:array[1..10000] of integer;
    i,N,sum:integer;
    Begin
    sum:=1;
    Writeln('Введите размерность массива');
    Readln(N);
    For i:=1 to N do begin
    Writeln('Введите эллемент массива');
    Readln(m[i]);
    if m[i]>0 then sum:=sum*m[i];
    end;
    writeln('Сумма положительных эллементов массива=',sum);
    end.