uses crt;
var a:array[1..200]of integer;
i,n,dem,t:integer;
tb:real;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{----------------------------dem-so-phan-tu-chia-het-cho-5----------------------}
dem:=0;
for i:=1 to n do
if a[i] mod 5=0 then inc(dem);
writeln('so phan tu chia het cho 5 trong day la: ',dem);
{-----------------------tinh-trung-binh-cong-cua-day-so-----------------}
t:=0;
for i:=1 to n do
t:=t+a[i];
tb:=t/n;
writeln('trung binh cong cua day so la: ',tb:4:2);
readln;
end.

Cám ơn chú ạ♥️

Lĩnh vực của em thuộc bên môn Hoá, với lại e chưa học tới lớp 11 đâu :) Anh/Chị nhờ cô Nguyễn Minh Lệ nha

cảm ơn bạn

const fi='bai1.inp';

fo='bai1.out';

var f1,f2:text;

a,m,lt,i:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,m);

lt:=1;

for i:=1 to m do

lt:=lt*a;

writeln(f2,lt);

close(f1);

close(f2);

end.

thanks ạ

:) Bạn nhập tiếng việt thôi nha, không phải là tiếng anh đâu.

Lỗi à!

Đoạn chương trình này làm công việc nhập vào T số thực m[i]

Đoạn chương trình này làm công việc đổi chỗ hai phần tử m[i] và m[j] nếu m[i]>m[j]

*p/s: Đoạn chương trình này thường xuất hiện trong bài sắp xếp tăng dần của dãy số

uses crt;

var
n,i,q,k,p:integer;
a,b:array [1..1000] of integer;
begin

clrscr;
write('n= ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
write('Xoa pt co vi tri la: ');readln(p);
q:=0;
for i:=1 to n do
if q<>p then
begin
inc(q);
b[q]:=a[i];
end;
writeln('Mang sau khi xoa la: ');
for i:=1 to q do
write(b[i],' ');
readln;
end.

Cảm ơn rất nhiều ạ 💛

Bài 1:

uses crt;

const fi='ketqua.txt';

var f1:text;

a,b,t:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('a='); readln(a);

write('b='); readln(b);

t:=a+b;

writeln(f1,t);

close(f1);

readln;

end.

Bài 2:

uses crt;

const fi='dulieu.txt';

var f1:text;

a,b,t:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

t:=a+b;

writeln('tong cua hai so la: ',t);

close(f1);

readln;

end.