Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thanh sang

Viết chương trình nhập vào dãy số A gồm N số nguyên (N<=100), và số nguyên K. Kiểm tra xem có bao nhiêu phần tử có giá trị lớn hơn K?

Giúp mk vs

Nguyễn Lê Phước Thịnh
17 tháng 4 2023 lúc 20:38

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.

Ngô Bá Hùng
17 tháng 4 2023 lúc 20:36

python hay pascal

Ngô Bá Hùng
17 tháng 4 2023 lúc 20:41

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.

 


Các câu hỏi tương tự
Dương Thành Long
Xem chi tiết
fyujg
Xem chi tiết
Anh Thư
Xem chi tiết
Nguyễn Lê
Xem chi tiết
Anh Sandz
Xem chi tiết
Võ Thu Hằng
Xem chi tiết
Thảo Nguyên Ngô
Xem chi tiết
uyen hihi
Xem chi tiết
Anh Thư
Xem chi tiết