Question

Помогите ! написать программу для одномерного массива подсчёт кол-ва элементов массива, выше 30

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -99, 99);

 a.Println;

 Writeln('Элементов со значением, превышающим 30: ',

     a.Where(t -> t > 30).Count)

end.

Пример

n= 17

29 8 -26 51 -32 -35 46 95 -90 58 66 64 19 -3 34 -8 45

Элементов со значением, превышающим 30: 8

Answer 2

const n=10;

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

i,k:integer;

begin

for i:= 1 to n do

begin

a[i]:=Random(90)+10;

write(a[i],'  ');

if a[i]>30 then k:=k+1

end;

writeln;

writeln ('Кол-во элементов массива, выше 30, равно: ',k)

end.

Answer 3

Конечно, помогу! Ниже представлена простая программа на языке Python, которая считает количество элементов в одномерном массиве, превышающих 30:

pythonCopy code
def count_elements_above_30(array):
    count = 0
    for num in array:
        if num > 30:
            count += 1
    return count

# Пример использования программы:
if __name__ == "__main__":
    # Задайте ваш одномерный массив в переменной 'my_array':
    my_array = [15, 25, 35, 10, 40, 50, 30]

    result = count_elements_above_30(my_array)
    print(f"Количество элементов, превышающих 30: {result}")

Программа принимает одномерный массив и использует цикл for, чтобы перебрать каждый элемент. Если элемент больше 30, увеличивается счетчик count. В конце программа выводит количество элементов, которые превышают значение 30. Замените значения в my_array на свой собственный массив, чтобы проверить работу программы на других данных.