Đáp án :

5. B

6. A

7. D

8. B

const fi='data.txt';

fo='tbc.txt';

var f1,f2:text;

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

n,i,t:integer;

begin

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

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

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

readln(f1,a[n]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t/n:4:2);

close(f1);

close(f2);

end.

cho tệp DataIn.txt chứa liên tiếp các số nguyên dương hoặc âm, các số trên cùng một dòng ngăn cách nhau bởi dấu cách. viết chương trình đọc các số vào chương trình pascal và tính tổng rồi ghi ra DataOut.txt

xin giúp đỡ ạ

Đáp án :

1. C

2. C

3. C 

4. C

uses crt;

const fi='hcn.dat';

fo='chuvi.out';

var f1,f2:text;

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

n,i,j:integer;

begin

clrscr;

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

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

n:=0;

while not eof(f1) do

begin

n:=n+1;

readln(f1,a[n],b[n]);

end;

for i:=1 to n do

writeln(a[i]*b[i]);

for i:=1 to n do 

  writeln(f2,2*(a[i]+b[i]));

close(f1);

close(f2);

readln;

end.

uses crt;

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

i,n,min,vt:integer;

begin

clrscr;

write('Nhap 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 min>a[i] then min:=a[i];

for i:=1 to n do

  if min=a[i] then vt:=i; 

writeln('So nho nhat la: ',min,' va o vi tri thu ',vt);

readln;

end.

uses crt;

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

i,n,dem,dem1,dem2,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

dem:=0;

dem1:=0;

for i:=1 to n do 

begin

if b[i]<0 then inc(dem);

if b[i]>0 then inc(dem1);

end;

writeln('So phan tu am la: ',dem);

writeln('So phan tu duong la: ',dem1);

t:=0;

for i:=1 to n do 

 if b[i]<>0 then t:=t+b[i];

writeln('Trung binh cac phan tu khac 0 trong mang la: ',t/(dem+dem1):4:2);

min:=b[1];

for i:=1 to n do

  if min>b[i] then min:=b[i];

dem2:=0;

for i:=1 to n do 

  if min=b[i] then

begin

 inc(dem2);

a[dem2]:=i;

end;

writeln('Gia tri nho nhat la: ',min);

writeln('Chi so la: ');

for i:=1 to dem2 do 

  write(a[i]:4);

readln;

end.

Nhập mảng n<-100 số nguyên. Tính tống các phần tử lớn nhất trong mảng và xuất ra vị trí của các phần tử lớn nhất trong mảng, viết chương trình sau.Giúp em với ạ.

uses crt;

var n,k:longint;

{----------------chuong-trinh-con-------------------}

function gthua(var n:longint):real;

var i:longint;

gt:real;

begin

gt:=1;

for i:=1 to n do 

  gt:=gt*i;

gthua:=gt;

end;

{----------------chuong-trinh-chinh------------------}

begin

clrscr;

repeat

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

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

until (n>0) and (k>0) and (k<=n);

writeln(n,'!=',gthua(n):4:2);

writeln('C=',gthua(n)/(gthua(k)*gthua(n-k)):4:2);

readln;

end.

Dế Mèn phiêu lưu kí là một truyện viết cho thiếu nhi rất đặc sắc của Tô Hoài. Trong truyện, tác giả đã xây dựng nhân vật chính là chú Dế Mèn với những nét tính cách, phẩm chất thật đáng yêu, đáng quý. Nhưng nhân vật mà em ấn tượng nhất là chú dễ choắt. Dù chỉ xuất hiện ở những phần đầu câu chuyện nhưng những câu nói cuối cùng của chú trước khi mất nhưng nó làm cho mỗi độc giả mãi không thể nào quên. Cậu là một người có thân hình nhỏ bẻ nhưng khá am hiểu sự đời, cách đối đãi với mọi người xung quanh. Bằng chứng là câu nói cuối cùng của Dế Choắt ở đời mà có thói hung hăng bậy bạ, có óc mà không biết nghĩ, sớm muộn rồi cũng mang vạ vào mình. Chỉ vài câu thôi, nhưng nó đã làm thay đổi một Dế Mèn kiêu căng, ngạo mạn lúc bấy giờ. Vậy mỗi người chúng ta hãy học theo Dễ Choắt, đừng bao giờ kiêu căng, làm việc bậy bạ mà ảnh hưởng đến cả mình, cả người khác

like 

a) 6; 9; 12

b) 4

c) 3