Câu 1:

uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('Tong cac so chan la: ',t);
readln;
end.

Câu 2:

uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('Tong cac so le la: ',t);
readln;
end.

Câu 3:

uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln('Tong cac so duong la: ',t);
readln;
end.

Câu 4:

uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then t:=t+a[i];
writeln('Tong cac vua chia het cho 2 vua chia het cho 3 la: ',t);
readln;
end.

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 97 do

s:=s+i;

write(s);

readln;

end.

uses crt;

var n,i:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Cac so lon hon 0 trong day la: ');

for i:=1 to n do

if a[i]>0 then write(a[i]:4);

readln;

end.

Program HOC24;

var d,i,n: integer;

t: longint;

begin

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

t:=0; d:=0;

for i:=1 to n do

if i mod 2=0 then

begin

d:=d+1;

t:=t+i;

end;

writeln('Co ',d,' so chan trong day');

write('Tong cac so chan trong day la : ',t);

readln

end.

Cái này là nhập dãy n số hay là chỉ nhập n và xử lý trong khoảng từ 1 tới n vậy bạn?

Đề là 1/n*(n+2) mà sao bạn là để 1/(i+(i+2))

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do

s:=s+1/(i+(i+2));

writeln('Ket qua la: ',s:4:2);

readln;

end.

a. for <biến đếm> := <giá trị đầu> to <giá trị cuối> do < câu lệnh>;

b. while <điều kiện> do <câu lệnh>;

c. var <biến mảng> : array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>;

Đề sai rồi bạn

Sao ko có ai trả lời hết zây

Program HOC24;

var i,n,min: integer;

a: array[1..32000] of integer;

begin

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

for i:=1 to n do

begin

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

end;

min:=a[1];

for i:=1 to n do if a[i]<min then min:=a[i];

write('Phan tu be nhat la : ',min);

readln

end.