a.

program giupban;

uses crt;

var i: integer;

A: array[1..15] of real;

tong, tbcong, tongsl: real;

begin

clrscr;

write('Cac phan tu cua day la: ');

for i:= 1 to 10 do

begin

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

end;

tong:= 0

for i:= 1 to 10 do

tong := tong + a[i];

write('Tong cua mang la ', tong);

readln

end.

87 nhé

12-12=0

đáp số:0

program giai;

uses crt;

var A: real;

x,n: integer;

begin

clrscr;

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

write('Nhap x = '); read(x);

A:=1/(9*x+n);

write('Ket qua phep tinh A = ',A);

readln

end.

7 x 9 - 14/3 - 17

= 63 - 14/3 - 17

= 58/1/3 - 17

= 41/1/3

5+5=10

6000 nha bnVũ Lê Lan Anh

1/

A=1/1-1/2+1/2-1/3+1/3-1/4+...+1/99-1/100

A=1/1-1/100

Vì 1/100>0

-->1/1-1/100<1

-->A<1

mình ko biết bài này nhưng mình kết bạn nhé 

số cần tìm là 2