Question

Viết 1 chương trình sử dụng câu lệnh lặp tính tổng các số nguyên trong dãy x1, x2Viết 1 chương trình sử dụng câu lệnh lặp tính tổng các số nguyên trong dãy x1, x2,.. xn ( các số này được nhập từ bàn phím )

Answer 1

uses crt;

var i,n,s:longint;

a:array[1..1000] of longint;

begin

clrscr;

writeln('nhap vao so cac so trong day');readln(n);

s:=0;

for i:=1 to n do

begin

writeln('a[',i,']','=');readln(a[i]);end;

writeln('tong cac so nguyen trong day la');

for i:=1 to n do

begin

s:=s+a[i];end;

writeln(s);readln;end.

Answer 2

program ct;

var a:array[1..100] of integer;

n,i,s:integer;

begin

read(n);

for i:=1 to n do begin

read(a[i]);

end;

s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

end.