Lợi ích chính của việc sử dụng biến mảng là rút gọn việc viết chương trình, có thể sử dụng câu lệnh lặp để thay nhiều câu lệnh, giúp tiết kiệm rất nhiều thời gian và công sức viết chương trình.

Ngoài ra chúng ta còn có thể lưu trữ và xử lí nhiều dữ liệu có nội dung liên quan đến nhau một cách hiệu quả.

Tính giá trị biểu thức trong Geogebra??? Bạn có nhầm ko nhỉ?

program TT;

uses CRT;

Var i,n:integer;
P:longint; S:Real;
begin
Write('Nhap N: '); Readln(N);
S:=0;
P:=1;
For i:=1 to N do
begin P:=P*i; S:=S+1/P; end;
Writeln('Tong S= ',S:5:3);
Readln
End.

làm cái j thế?

program bai1;

var s:real;i,n:longint;

begin

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

s:=0;

for i:=1 to n do

s:=s+1/i;

write('S= ',s:4:2);

readln

end.

bn tự khai báo nhé!!!

begin

clrscr;

s:=1;

write('nhap n:');readln(n);

for i:=2 to n do

s:=s+(1/i);

writeln('tong s la:',s:4:2);

readln

end.

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

n,i : integer;

begin

readln (n);

for i :=1 to n do

readln (a[i]);

for i:=1 to n do

if a mod 2 = 0 then

write (a[i]);

end.

program tinhp;

uses crt;

var x,n,i: integer;

s: real;

begin

write('Nhap n:');

readln(n);

write('Nhap x:');

readln(x);

s: sqrt(x);

for i:=1 to do s:= sqrt (x+s);

write('tong s=',s:6:2);

readln;

end.