Tin học Viết chương trình tính tổng của dãy số nguyên a1,a2,…an 23/07/2021 By Autumn Viết chương trình tính tổng của dãy số nguyên a1,a2,…an
var A: array [1..500] of longint; n, i: integer; tong: real;begin write(‘Nhap so luong phan tu: ‘); readln(n); for i:=1 to n do begin write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘); readln(a[i]); end; for i:=1 to n do tong:=tong+a[i]; write(‘Ket qua: Tong la: ‘,tong:0:0); readlnend. Trả lời
program tinhtong; uses crt; var A:array[1..100] of integer; n,i,t:integer; begin clrscr; write(‘Nhap so luong phan tu n: ‘); readln(n); t:=0; for i:=1 to n do begin write(‘A[‘,i,’]= ‘); readln(A[i]); t:=t+A[i]; end; write(‘Tong la: ‘,t); readln; end. Trả lời