// 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 programma; uses crt; var b:array[1..100]of integer; i,n,a,max,k,t:integer; begin clrscr; write('Введите размер массива N = '); readln(n);
write('Введите число A = '); readln(a); for i:=1 to n do begin write('b[',i,'] = '); readln(b[i]); end;
for i:=1 to n do begin if abs(b[i])>a then k:=k+1; if b[i] mod 5=0 then t:=t+1; end;
writeln; writeln('Количество элементов массива, превосходящих по модулю заданное число А = ', k); writeln('Количество элементов массива, кратных 5 = ', t);
for i:=1 to n do begin if b[i]> max then max:=b[i]; end;
for i:=1 to n do begin if b[i]= max then begin write (-max,' '); end else write(b[i],' '); end;
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadInteger('x=');
var a:=ArrRandom(ReadInteger('n='),0,99); a.Println;
a.Where(t->t mod x=2).Println
end.
Пример
x= 5
n= 20
45 58 11 43 42 37 93 71 91 1 94 19 37 92 65 22 69 10 63 33
42 37 37 92 22