Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lê Bảo Lâm

Viết chương trình nhập vào dãy số nguyên A có N phần tủ (N<=250) và thực hiện yêu cầu sau

A) cho biết chỉ số các phần tử có giá trị bằng không

b)Đếm số phần tử có giá trị lớn hơn X cho trước

C)Tính tổng các phần tử có giá trị nàm trong đoạn từ 5 đén 20

Minh Lệ
26 tháng 2 2021 lúc 17:22

Program HOC24;

var d,i,n,x: integer;

t: longint;

a: array[1..32000] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Chi so cac phan tu co gia tri bang 0 la: '); 

for i:=1 to n do if a[i]=0 then write(i,' ');

writeln;

d:=0; t:=0;

write('Nhap X: '); readln(x);

for i:=1 to n do if a[i]>x then d:=d+1;

writeln('Co ',d,' phan tu co gia tri lon hon ',x);

if n=20 then

begin

for i:=5 to 20 do t:=t+a[i];

end else write('Du lieu da cho chua du 20 phan tu');

write('Tong cac phan tu co gia tri nam trong doan 5 den 20 la: ',t);

readln

end.

Nguyễn Lê Phước Thịnh
26 tháng 2 2021 lúc 21:28

uses crt;

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

i,n,t,x,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Chi so cac phan tu co gia tri bang 0 la: ');

for i:=1 to n do 

  if a[i]=0 then write(i:4);

writeln;

write('Nhap x='); readln(x);

dem:=0;

for i:=1 to n do 

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

writeln('So phan tu lon hon ',x,' la: ',dem);

t:=0;

for i:=1 to n do 

  if (5<=a[i]) and (a[i]<=20) then t:=t+a[i];

writeln(t);

readln;

end.


Các câu hỏi tương tự
Thảo Nguyên Ngô
Xem chi tiết
hihi
Xem chi tiết
Lê Phương Thảo
Xem chi tiết
Phan uyển nhi
Xem chi tiết
Khang nguyễn
Xem chi tiết
uyen hihi
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Thái Thiên Thành
Xem chi tiết
Hạnh Lê
Xem chi tiết