двумерный массив

[maxwelln1]

Дана квадратная матрица порядка n(n=5). Получить элементы вектора x, равные сумме чётных элементов каждой строки, если среди элементов матрицы нет отрицательных элементов, иначе каждый элемент вектора x равен произведению элементов столбца. С комментариями, пожалуйста.

[Arigato]

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

С комментариями, пожалуйста.

Вам просто код программы или лучше проект целиком прикрепить, чтобы вы его руками не создавали, и свое время на такую чепуху не тратили? Могу еще и откомпилировать, чтобы был готовый exe-файл, и не пришлось компилировать самостоятельно.

[maxwelln1]

код

[New man]

Что только не сделаешь, когда вежливо просят...

// Learn more about F# at http://fsharp.org
// See the 'F# Tutorial' project for more help.
 
let n = 5

let get_matrix =
    let rec in_row acc res =
        if acc>=n then
            res
        else
            in_row (acc+1) ((System.Console.ReadLine()|>int)::res)
    List.map (fun x -> in_row 0 []) [1..n];

let check matrix = not( List.exists (fun x-> List.exists (fun y->y<0) x) matrix)
 
let calc matrix =
    let rec s row acc=
        match row with
            | []->acc
            | head::tail->
                        if head%2=0 then 
                            s tail acc+head
                        else
                            s tail acc
    let p row = List.reduce (fun x a -> a*x)row
    List.map (if check matrix then (fun x -> s x 0) else p) matrix
            
[<EntryPoint>]
let main argv = 
    printfn "%A" (calc get_matrix)
    0 // return an integer exit code

Обязательно следуйте советам в комментариях!

[Serge_Bliznykov]

Что только не сделаешь, когда вежливо просят...

Вы уверены, что это программа на языке Паскаль?!

[New man]

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

Вы уверены, что это программа на языке Паскаль?!

Ну зачем интригу убирать

А вообще, я очень старался и написал кучу спагетти-кода на F# с рекурсией в самых ненужных местах.

[newerow1989]

const n=5;
var i,j:integer;
    p:array[1..n,1..n] of integer;
    x:array[1..n] of integer;
    otr:boolean;
begin
   Randomize;
   otr:=false;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=-1+Random(21);
         Write(p[i,j]:3,'  ');
         If p[i,j]<0 then
            otr:=true;
      end;
      Writeln;
   end;
   Writeln;
   If otr then
      For j:=1 to n do
      begin
         x[j]:=1;
         For i:=1 to n do
            x[j]:=x[j]*p[i,j];
      end else
      For i:=1 to n do
      begin
         x[i]:=0;
         For j:=1 to n do
            If p[i,j] mod 2=0 then
               x[i]:=x[i]+p[i,j];
      end;
   For i:=1 to n do
      Write(x[i]:3,'  ');
   Readln;
end.