[Pacal 11] Bài tập mảng

[msyui_98]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

nhập mảng A có n phần tử
tính S= A[1] +A[2]^2 + A[3]^3 +A[4]^4+....+A[n]^n

 

[demon311]

Dạ thím cho nhập xong rồi làm cái vòng lặp này:

Xây dựng hàm mũ:

 Function lthua(a,b: integer): longint;
Var i: byte
c: integer;
begin
c:=a;
For i=1 to b do
a=a*c
end;

Thọt cái này làm bài dưới

 For i:= 1 to n do
S:=S+lthua(a[i],i)

 

[khai221050]

Chú ý tiêu đề: [Tên môn+ lớp] Chủ đề bài viết
Và đặt tiêu đề như bạn thì chả mấy người vào để trả lời đâu.
Thân!