giúp mình với, đang gấp, đề thi hk2 tin 8
cho thuật toán sau:
bước 1: nhập vào dãy số nguyên a[1], a[2], a[3], a[4],…, a[10]
bước 2: tính tổng dãy số lưu vào biến tong
bước 3: S<--0; i<--0
bước 4: nếu S<=tong/2 thì chuyển đến bước 6
bước 5:i<--i+1; S :=S + a[i] và quay lại bước 4
bước 6: thông báo S và kết thúc
yêu cầu:
a. khai báo tên chương trình và các biến phù hợp
b. viết hoàn thiện chương trình từ thuật toán trên bằng ngôn ngữ lập trình pascal
c. chạy chương trình với các số nhập tùy ý, in ra kết quả
giúp mình với ạ
uses crt;
var A: array[1..10] of integer;
tong, s, i: integer;
begin
clrscr;
tong:=0;
for i:=1 to 10 do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
tong:=tong+A[i];
end;
write(‘Tong= ‘, tong);
s:=0; i:=0;
while s>tong/2 do
begin
s:=s+A[i];
i:=i+1;
end;
write(‘S= ‘, s);
readln
end.
program phuongt;
uses crt;
var A: array[1..10] of integer;
s, i: integer;
tong: real;
begin
clrscr;
tong:=0;
for i:=1 to 10 do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
tong:=tong+A[i];
end;
write(‘Tong = ‘, tong);
tong:=tong/2;
s:=0;
i:=0;
while s>tong do
begin
s:=s+A[i];
i:=i+1;
end;
write(‘S = ‘, s);
readln
end.