Bài 11: Kiểu mảng

uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

readln(k);

dem:=0;

for i:=1 to n do

if a[i]>k then inc(dem);

write(dem);

readln;

end.

python hay pascal

program countGreaterThanK;
var
  A: array[1..100] of integer;
  N, K, count: integer;
  i: integer;
begin
  write('Nhap so phan tu cua day A (<=100): ');
  readln(N);
  write('Nhap gia tri K: ');
  readln(K);
  count := 0;
  for i := 1 to N do
  begin
    write('Nhap phan tu thu ', i, ' cua day A: ');
    readln(A[i]);
    if A[i] > K then
      count := count + 1;
  end;
  writeln('So phan tu co gia tri lon hon K la: ', count);
end.

# Nhập mảng từ bàn phím
arr = list(map(int, input("Nhập mảng các số nguyên, cách nhau bởi dấu cách: ").split()))

# Nhập số M từ bàn phím
M = int(input("Nhập số M: "))

# In ra các phần tử chia hết cho M và tính tổng
sum = 0
count = 0
print("Các phần tử chia hết cho M là:", end=" ")
for i in arr:
    if i % M == 0:
        print(i, end=" ")
        sum += i
        count += 1

if count == 0:
    print("\nKhông có phần tử nào chia hết cho M.")
else:
    print("\nTổng các phần tử chia hết cho M là:", sum)

# Nhập mảng A từ bàn phím
n = int(input("Nhập số lượng phần tử của mảng A: "))
A = []
for i in range(n):
    A.append(int(input("Nhập phần tử thứ {} của mảng A: ".format(i+1))))

# Tính trung bình cộng các phần tử chia hết cho 3 và 5
sum_35 = 0
count_35 = 0
for num in A:
    if num % 3 == 0 and num % 5 == 0:
        sum_35 += num
        count_35 += 1
if count_35 > 0:
    tb_35 = sum_35 / count_35
    print("Trung bình cộng các phần tử chia hết cho 3 và 5 trong mảng A là:", tb_35)
else:
    print("Không có phần tử nào chia hết cho cả 3 và 5 trong mảng A")

# In ra các phần tử chia hết cho M và tính tổng các phần tử chia hết cho M
M = int(input("Nhập giá trị M: "))
sum_M = 0
count_M = 0
for num in A:
    if num % M == 0:
        print(num, end=" ")
        sum_M += num
        count_M += 1
print("\nTổng các phần tử chia hết cho M trong mảng A là:", sum_M)

Program HOC24;

var i,n: integer;

c: array[1..1000] of integer;

f: text;

begin

assign(f,'MANG3.TXT');

reset(f);

readln(f,n);

for i:=1 to n do read(f,c[i]);

close(f);

for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');

readln

end.

cứu e với mn

n = int(input("Nhập n: "))

a = [ ]

for i in range(n):

     a.append(int(input(f"Nhập phần tử a[{i}]: ")))

k = int(input("Nhập k: "))

count_greater = 0

count_divisible_by_three = 0

for num in a:

     if num > k:

          count_greater += 1

     if sum(int(digit) for digit in str(num)) % 3 == 0:

          count_divisible_by_three += 1

print(f"Số lớn hơn {k}: {count_greater} số")

print(f"Số có tổng các chữ số chia hết cho 3: {count_divisible_by_three} số")