Question

CAU 1: 

A, Nhap vao so nguyen n ; Tinh tong S= 1+2+3+...+n

B, Nhap vao mot mang gom m so nguyen . Tinh tong cac phan tu cua mang do.

      GIUP MINH VOI NHA MOI NGUOI ...

Answer 1

A:

uses crt;

var t,i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do

t:=t+i;

writeln(t);

readln;

end.

Answer 2

B:

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap m='); readln(m);

for i:=1 to m do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to m do 

  t:=t+a[i];

writeln(t);

readln;

end.