Question

Дан массив из 100 целых чисел найти количество чисел больше 10

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(100,-50,50); a.Println;
  Writeln('Чисел, больших 10: ',a.Where(t->t>10).Count)
end.

Пример
-25 42 -38 -19 -8 -27 -41 -17 19 27 43 -1 -1 -36 29 47 -31 -42 -39 36 15 -3 32 37 -26 9 -19 23 -34 -20 -48 -43 -47 43 20 -46 9 -36 39 -50 -13 -45 19 -39 -24 -14 -25 -39 32 -23 16 2 -36 -5 25 28 -41 -24 -43 34 42 -14 -34 -12 24 36 -5 6 -6 24 -13 -46 -31 -39 -2 9 28 21 11 38 -16 -30 42 39 14 1 43 8 -32 43 45 -17 -43 -45 -41 -50 39 -20 -12 -10
Чисел, больших 10: 35

Answer 2

Program n1;
const n=100;
var a: array[1..n] of integer;
k,i: integer;
begin
write('массив: ');
k:=0;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i],' ');
if a[i]>10 then k:=k+1;
end;
writeln;
write('количество элементов больше 10: ',k);
end.

Answer 3

Для нахождения количества чисел в массиве, которые больше 10, вам потребуется пройти по каждому элементу массива и проверить, является ли он больше 10. Если это так, увеличивайте счетчик на единицу. Вот пример кода на Python, решающий данную задачу:

pythonCopy code
array = [1, 5, 15, 10, 20, 8, 12, 25, 6, 30, ...]  # Ваш массив из 100 чисел

count = 0  # Инициализация счетчика

for number in array:
    if number > 10:
        count += 1

print("Количество чисел больше 10:", count)

Поместите в переменную array ваш массив из 100 целых чисел. Затем запустите цикл for, чтобы пройти по каждому числу в массиве. Внутри цикла проверьте условие number > 10. Если число удовлетворяет этому условию, увеличивайте счетчик count на единицу. После завершения цикла выведите результат с помощью print.