Question

В МАССИВЕ ИЗ 10 НАЙТИ СУММУ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ, ОКАНЧИВАЮЩИХСЯ НА 4 ЭЛЕМЕНТЫ МАССИВА ЦЕЛЫЕ ЧИСЛА

Answer 1

Program prog;
uses crt;
var a:array[1..100] of integer;
    s,i:integer;

begin
for i:=1 to 10 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;

for i:=1 to 10 do
begin
if (a[i]>=0) and ( a[i] mod 10 = 4) then
s:=s+a[i]
end;
writeln;
writeln('S = ', s);
end.

Answer 2

// F#
[<EntryPoint>]
let main argv =
    let getRandomCollection n =
        let rand = new System.Random()
        Array.map (fun x -> rand.Next 100 - 50) [| 1..n |]
    let inputArray = getRandomCollection 10
    printf "array: \n%A\n" (inputArray)
    let resultSum =
        inputArray
        |> Array.filter (fun x -> x > 0 && x % 10 = 4)
        |> Array.sum
    printf "sum: %d" resultSum
    System.Console.ReadKey true |> ignore
    0