viết chương trình nhập 1 dãy số thực gồm n(0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " viết chương trình nhập 1 dãy số thực gồm n(0
0 bình luận về “viết chương trình nhập 1 dãy số thực gồm n(0<n<=0) phần tử từ bàn phím . Tính trung bình cộng các số âm và số dương. Đưa dãy vừa nhập và các kết quả t”
program 0<n<=0;
uses crt;
var n,i,t:integer;
begin
clrscr;
write(‘nhap 0<n<=0: ‘); readln(n);
i:=0; t:=0;
while i<n do
begin
t:=t+(2*i+1);
i:=i+1;
end;
write(‘Tong la: ‘,t);
readln
end.