Написать программу, которая в промежутке чисел [2003, 100000] ищет числа, которые делятся на 3 и 5 и не делятся на 10. Вывести количество таких чисел и максимальное из низ.
// 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;
Пример решения на языке Python
Нижнее подчёркивание обозначает табуляцию (4 пробела).
c = 0
a = []
for i in range(2003, 100001):
if i % 3 == 0 and i % 5 == 0 and i % 10 > 0:
c += 1
a.append(i)
print(c, a[-1]) #сначала выводит количество, а затем максимальное