Cho trước một danh sách liên kết L. Viết một hàm đếm số lượng phần tử của danh sách liên kết này.
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
class Node:
def __init__(self, key=None):
self.key = key
self.next = None
def delete_Jast(L):
if L is None or L.next is None: # Nếu danh sách liên kết rỗng hoặc chỉ có một phần tử
return None # Không cần xoá, trả về None
current = L # Đặt con trỏ current trỏ đến node đầu tiên của danh sách liên kết
while current.next.next is not None: # Duyệt đến node trước node cuối cùng
current = current.next # Chuyển con trỏ current sang node kế tiếp trong danh sách liên kết
current.next = None # Thay đổi liên kết của node trước node cuối cùng để xoá node cuối cùng
return L # Trả về đối tượng đầu tiên của danh sách liên kết sau khi xoá
L = delete_Jast(L)
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
Begin
Repeat
Write('n = ');readln(n);
Until (n>0) and (n<=100);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
If a[i] mod 2 = 0 then s:=s+a[i];
End;
Write('Tong cac so chan la ',s);
Readln
End.
program TrungBinhCong;
const
MAX = 100;
var
danhSach: array[1..MAX] of integer;
n, i, tong: integer;
trungbinh: real;
begin
write('Nhap so ptu (toi da 100): ');
readln(n);
tong := 0;
for i := 1 to n do
begin
write('Nhap giatri ptu thu ', i, ': ');
readln(danhsach[i]);
tong := tong + danhsach[i];
end;
trungbinh := tong / n;
writeln('Tbc cua danh sach la: ', trungbinh:0:2);
readln;
end.
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
tbc:real;
Begin
Repeat
Write('n = ');readln(n);
Until (n>0) and (n<=100);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
s:=s+a[i];
End;
tbc:=s/n;
Write('Trung binh cong la ',tbc:10:2);
Readln
End.