viết chương trình nhập từ bàn phím 1 số nguyên dương N (N<=100) và dãy số nguyên A (A1,A2,....., An) với |Ai|<=1000 dãy A có ít nhất 2 phần tử có giá trị bằng 0. Tính và đưa ra màn hình tổng các phần tử bằng 0 đầu tiên nhân với phần tử bằng 0 cuối cùng
2 câu trả lời
program baigiai;
uses crt;
var A:array[1..100] of integer;
n,i,t1,t2:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
t1:=0; t2:=0;
i:=1;
while A[i]<>0 then
begin
t1:=t1+A[i];
i:=i+1;
end;
i:=n;
while A[i]<>0 do
begin
t2:=t2+A[i];
i:=i-1;
end;
write('Ket qua la: ',t1*t2);
readln;
end.
var A:array[1..100] of integer;
n,i,t1,t2:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
t1:=0; t2:=0;
i:=1;
while A[i]<>0 then
begin
t1:=t1+A[i];
i:=i+1;
end;
i:=n;
while A[i]<>0 do
begin
t2:=t2+A[i];
i:=i-1;
end;
write('Ket qua la: ',t1*t2);
readln;
end.
