Pascal thi học kì đây giúp mai thi

[nhokbmt1]

[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.

Viết chương trình tính tổng n số nguyên được nhập từ bàn phím (mình ngu nên ko biết hihi)

 

[rjnaloner]

Viết chương trình tính tổng n số nguyên được nhập từ bàn phím (mình ngu nên ko biết hihi)

code nè bạn
uses crt; {khai bao thu van crt}
var a:array [1..150] of integer; {khai bao mang A}
i,n,s:integer;
begin
clrscr; {xoa man hinh}
write('N= ');
readln(n); {nhap n}
for i:=1 to n do
begin
write('A[',i,']= ');
readln(a); {nhap n phan tu cua mang A}
end;
s:=0;
for i:=1 to n do
s:=s+a; {tinh tong bang cach cong don};
writeln('Tong cua n phan tu la: ',s);
readln;
end.

mấy cái trong {} la mình chú thích á, không nằm trong code đâu
P/s: vì bạn nói không biết nên mình mới chú thích nhiều vậy, mình hk có ý gì đâu

 

[huutoan00]

code nè bạn
uses crt; {khai bao thu van crt}
var a:array [1..150] of integer; {khai bao mang A}
i,n,s:integer;
begin
clrscr; {xoa man hinh}
write('N= ');
readln(n); {nhap n}
for i:=1 to n do
begin
write('A[',i,']= ');
readln(a); {nhap n phan tu cua mang A}
end;
s:=0;
for i:=1 to n do
s:=s+a; {tinh tong bang cach cong don};
writeln('Tong cua n phan tu la: ',s);
readln;
end.

mấy cái trong {} la mình chú thích á, không nằm trong code đâu
P/s: vì bạn nói không biết nên mình mới chú thích nhiều vậy, mình hk có ý gì đâu

dài quá!

uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap N: ');readln(n);
s:=0;
for i:=1 to n do 
   begin 
      write('Nhap mot so nguyen: ');readln(a);
      s:=s+a;
   end;
writeln('Tong cac so nguyen da nhap la: ',s);
readln
end.

Thế này có phải đơn giản hơn không?