// 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
Program Summa;
Uses Crt;
var n,s:integer;
begin
clrscr;
write('Вводите числа конец ввода 0: ');
s:=0;
repeat
readln(n);
s:=s+n;
until (n=0);
writeln;
writeln('Сумма чисел: ',s);
readkey;
end.
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
1 способ
begin
var a:=ReadArrInteger(3);
a:=a.Sorted.Reverse.ToArray; a.Println;
end.
2 способ
begin
var (a,b,c):=ReadInteger3('Введите 3 числа->');
if (a>b) and (b>c) then begin Println(a,b,c); exit; end;
if (a>c) and (c>b) then begin Println(a,c,b); exit; end;
if (b>a) and (a>c) then begin Println(b,a,c); exit; end;
if (b>c) and (c>a) then begin Println(b,c,a); exit; end;
if (c>a) and (a>b) then begin Println(c,a,b); exit; end;
if (c>b) and (b>a) then begin Println(c,b,a); exit; end;
end.
Procedure Bubble(var item: DataArray; count:integer);
var
i,j: integer;
x: DataItem
begin
for i := 2 to count do
begin
for j := count downto i do
if item[j-1]>item[j] then
begin
x := item[j-1];
item[j-1] := item[j];
item[j] := x;
<span>end
end
end</span>