Bài 16: Ví dụ làm việc với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hằng Nguyễn

Đọc mảng A gồm N số nguyên (n<250) từ tệp SUM.inp, các phần tử nằm trên cùng 1 dòng ngăn cách nhau bởi dấu cách. Tính tổng trung bình cộng các phần tử nguyên dương chẵn. Ghi kết quả lên tệp SUM.out.

Nguyễn Lê Phước Thịnh
27 tháng 10 2019 lúc 17:06

uses crt;
const fi='sum.inp';
fo='sum.out';
var f1,f2:text;
a:array[1..250]of integer;
n,i,t,dem:integer;
tbc:real;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
{----------------xu-ly--------------------}
t:=0;
dem:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 2=0) then
begin
inc(dem);
t:=t+a[i];
end;
tbc:=t/dem;
writeln(f2,tbc:4:2);
close(f1);
close(f2);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Exo Aeri
Xem chi tiết
Dương Hữu Thành
Xem chi tiết
Trung Kiên Lưu
Xem chi tiết
Phạm Đức Huy
Xem chi tiết
Trung Kiên Lưu
Xem chi tiết
Lê Thị Hồng Trang
Xem chi tiết
Linh
Xem chi tiết
An Đinh
Xem chi tiết
Quỳnh Anh
Xem chi tiết