Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trương Tĩnh Mỹ

Cho mảng A gồm n phần tử , n\(\le\)255 và dãy số nguyên a1a2a3.....an. Viết công thức tính tổng hiển thị các phần tử < k (k là 1 số nguyên dương , k \(\le10^9\)

Nguyễn Lê Phước Thịnh
4 tháng 1 2021 lúc 22:41

uses crt;

var a:array[1..255]of longint;

k,i,n,t:longint;

begin

clrscr;

repeat

write('Nhap so phan tu:'); readln(n);

until (0<n) and (n<=255);

for i:=1 to n do 

  begin

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

end;

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

t:=0;

for i:=1 to n do 

  if a[i]<k then t:=t+a[i];

writeln('Tong cac so nho hon ',k,' trong day la: ',t);

readln;

end.


Các câu hỏi tương tự
nông thị ngân
Xem chi tiết
Khang nguyễn
Xem chi tiết
Phan uyển nhi
Xem chi tiết
Phan uyển nhi
Xem chi tiết
uyen hihi
Xem chi tiết
NTTN
Xem chi tiết
Linh Chi
Xem chi tiết
Xuân Linh
Xem chi tiết
Thuý Vy
Xem chi tiết