===== PascalABC.NET =====
begin
var n := ReadInteger('Число членов последовательности:');
var s := ReadSeqInteger('Вводите:', n)
.Where(p -> (p < 10) or (p > 50)).Sum;
Println('Сумма отобранных членов равна', s)
end.
// F#
[<EntryPoint>]
let main argv =
let sum =
[0..200]
|> Seq.where (fun x -> x % 4 = 0)
|> Seq.fold (fun sum x -> sum + x) 0
System.Console.WriteLine sum
System.Console.ReadKey true |> ignore
0
<span>
</span>
const
n = 5;
var
arr: array [1..2*n] of <em>integer </em>:= (0,1, -2,1, -1,-1, 1,2, -3,0);
i: <em>byte </em>:= 1;
maxr: <em>real</em>;
begin
repeat
maxr := max(sqrt(sqr(arr[i]) + sqr(arr[i + 1])), maxr);
i += 2;
until (i > 2 * n - 1);
writeln(maxr);
end.
в первой строке, после program нужно, чтобы присутствовал идентификатор