1.Найдите 4−1(mod11) . 2.Найдите 6−1(mod7) .

var

       a: array [1..30] of Word;

       i, c, sum: Word;

       

begin

       Randomize;

       

       for i := 1 to 30 do

               a[i] := Random (76);

       

       for i := 1 to 30 do

               Write (a[i], ' ');

       

       WriteLn;

       

       for i := 1 to 30 do

               if (a[i] >= 10) and (a[i] <= 35) then begin

                       Inc (c);

                       sum := sum + a[i];

                       Write (a[i], ' ')

               end;

       

       WriteLn;

       WriteLn ('Кол-во чисел из диапазона [10; 35]: ', c);

       Write ('Сумма чисел из диапазона [10; 35]: ', sum);

end.        

// F#
[<EntryPoint>]
let main argv =
    let getRandomCollection n =
        let rand = new System.Random()
        Array.map (fun x -> rand.Next(-10, 10)) [| 1..n |]
    let inputArray = getRandomCollection 15
    printf "source array: %A\n" (inputArray |> Array.toList)
    // First part
    printf "numberToCheckOnEqual: "
    let numberToCheckOnEqual = System.Console.ReadLine() |> System.Int32.Parse
    let indecesEqualsToNumber =
        inputArray
        |> Array.mapi (fun i x -> (x, i))
        |> Array.filter (fun (x, i) -> x = numberToCheckOnEqual)
        |> Array.map (fun (x, i) -> i)
        |> Array.toList
    printf "%d equals to %d: %A\n" (indecesEqualsToNumber |> List.length) numberToCheckOnEqual indecesEqualsToNumber
    // Second part
    printf "a: "
    let a = System.Console.ReadLine() |> System.Int32.Parse
    printf "b: "
    let b = System.Console.ReadLine() |> System.Int32.Parse
    let sum =
        inputArray.[a..b]
        |> Array.sum
    printf "sum of array [%d..%d]: %d\n" a b sum
    // Last part
    let finalArray =
        inputArray
        |> Array.map (fun x -> if x < 0 then x*x else x)
    printf "final array: %A" finalArray
    System.Console.ReadKey true |> ignore
    0