viết chương trình tính tổng các phần tử có giá trị nhỏ hơn k trong mảng 1 chiều gồm n phần tử(n<=100),k- khóa và được đăng nhập vào từ bàn phím

program sksk;
uses crt;
var a : array[1..100] of integer;
      i, n, t , k : integer;
begin
clrscr;
write('nhap so luong phan tu trong mang :');readln(n);

write('nhap khoa k :');readln(k);
t := 0;
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' :');readln(a[i]);
if a[i] < k then t := t + a[i];

end;
writeln('tong phan tu be hon k la  :', t);
readln
end.

program tong;
Uses crt;
Var
    n,k,i,S:integer;
    A:array[1..1000] of integer;
Begin
    clrscr;
    write('Nhap n: '); readln(n);
    For i:=1 to n do readln(A[i]);
    write('Nhap k: '); readln(k);
    S:=0;
    For i:=1 to n do if A[i]<k then S:=S+A[i];
    write(S);
    Readln;
end.

#HNgoc

#Anh/Chi_hoc_tot