Question

Составить программу вычисления количества положительных, кратных 5 элементов массива, состоящего из 25 целых чисел

Answer 1

Ответ:

var a:array [1..25] of integer;

i,k:integer;

begin

write('Массив ');

for i:=1 to 25 do

begin

a[i]:=random(31)-15;

write(a[i]:5);

if (a[i] mod 5 = 0) and (a[i]>0) then k:=k+1

end;

writeln;

write('Количество положительных, кратных 5, элементов массива равно ',k)

end.

Answer 2

===== PascalABC.NET =====

begin

 var a := ArrRandom(25, -99, 99);

 a.Println;

 a.Count(p -> (p > 0) and (p mod 5 = 0)).Println

end.

Answer 3

Для написания программы вычисления количества положительных, кратных 5 элементов массива, можно использовать любой язык программирования. Ниже приведен пример программы на языке Python:

pythonCopy code
def count_positive_multiples_of_5(arr):
    count = 0
    for num in arr:
        if num > 0 and num % 5 == 0:
            count += 1
    return count

# Пример данных
array_of_integers = [15, -10, 20, 7, 5, 0, 25, 30, -8, 10, 12, 17, 35, 45, -5, 100, 4, 9, 14, -15, 21, 26, 39, -25, 5]

result = count_positive_multiples_of_5(array_of_integers)
print("Количество положительных, кратных 5 элементов массива:", result)

Эта программа определит количество положительных чисел в массиве array_of_integers, которые также кратны 5, и выведет результат на экран. Вам необходимо будет подставить свой собственный массив из 25 целых чисел в переменную array_of_integers.