Question

Câu 1: viết chương trình nhập vào từ bàn phím số nguyên dương N và dãy A gồm N số nguyên dương A1,A2,...AN. hãy viết chương trình đếm các số lẻ trong dãy A và tính trung bình cộng của chúng. yêu cầu kết quả in lên tệp OUT.TXT
Câu 2:cho tệp dulieu.txt gồm một dòng các số nguyên mỗi số cách nhau một dấu cách. viết chương trình đọc dữ liệu từ tệp trên rồi đưa ra màn hình các số là bội của 3 và đếm xem có bao nhiêu số như vậy.

Câu 3: viết chương trình nhập vào từ bàn phím số nguyên dương N và dãy A gồm N số nguyên dương A1,A2,...AN. hãy viết chương trình đếm các số chẵn trong dãy A và tính trung bình cộng của chúng. yêu cầu kết quả in lên tệp OUT.TXT

Câu 4: cho tệp dulieu.txt gồm một dòng các số nguyên mỗi số cách nhau một dấu cách. viết chương trình đọc dữ liệu từ tệp trên rồi đưa ra màn hình các số nguyên dương và đếm xem có bao nhiêu số như vậy.

Answer 1

Câu 1:

uses crt;
const fo='out.put';
var a:array[1..100]of integer;
n,i,dem,t:integer;
f1:text;
begin
clrscr;
assign(f1,fo); rewrite(f1);
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln(f1,'So luong so le: ',dem);
writeln(f1,'Trung binh cong cua cac so le la: ',t/dem:4:2);
close(f1);
readln;
end.

Câu 2:

uses crt;
const fi='dulieu.txt';
var a:array[1..100]of integer;
n,i,dem:integer;
f1:text;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
writeln('Cac so la boi cua 3 la: ');
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
write(a[i]:4);
inc(dem);
end;
writeln;
writeln('So cac phan tu la boi cua 3 la: ' ,dem);
close(f1);
readln;
end.

Câu 3:

uses crt;
const fo='out.put';
var a:array[1..100]of integer;
n,i,dem,t:integer;
f1:text;
begin
clrscr;
assign(f1,fo); rewrite(f1);
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln(f1,'So luong so chan: ',dem);
writeln(f1,'Trung binh cong cua cac so chan la: ',t/dem:4:2);
close(f1);
readln;
end.

Câu 4:

uses crt;
const fi='dulieu.txt';
var a:array[1..100]of integer;
n,i,dem:integer;
f1:text;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
writeln('Cac so nguyen duong la: ');
dem:=0;
for i:=1 to n do
if a[i]>0 then
begin
write(a[i]:4);
inc(dem);
end;
writeln;
writeln('So cac phan tu la so nguyen duong la: ' ,dem);
close(f1);
readln;
end.