uses crt;
var lst:array[1..100] of integer;
i,n,x,tong,count:longint;
Begin
clrscr;
write('Nhap n: ');
readln(n);
for i:=1 to n do
begin
write('lst[',i,']= ');
readln(lst[i]);
end;
write('Nhap so can dem so lan xuat hien: ');
readln(x);
tong:=0; count:=0;
for i:=1 to n do
begin
tong:=tong+lst[i];
if lst[i] = x then count:=count+1;
end;
WriteLn('Tong cua cac phan tu trong mang la: ',tong);
writeln('Tong so lan xuat hien cua so ',x,' la: ',count);
readln;
end.
Dựa theo đề bạn gửi thì có thể là như thế này, đề cũng không rõ ràng lắm. cho mình ctlhn nha
