viết ct tạo tệp có tên là huanvo.DAT chứa dãy số gồm N số nguyên liên tiếp ( N được nhập từ bàn phím ) hãy đọc từ tệp huanvo.DAT dãy số nguyên . viết thủ tục tính tổng các số nguyên có trong tệp đó

trungdz1945

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

Loga232

var i,n, temp: longint; Arr: array[1..100000000] of longint;
procedure TinhTong();
var temp,kq: longint;
begin
assign(input,'huanvo.DAT');
reset(input);
for i:=1 to n do read(temp);
kq:=kq+temp;
writeln;
writeln('Tong la: ',kq);
end;
begin
write('Nhap so N: ');
readln(n);
for i:=1 to n do
begin
write('Nhap gia tri cho phan tu thu ',i,': ');
readln(Arr[i]);
end;

assign(output,'huanvo.DAT');
rewrite(output);

for i:=1 to n do write(Arr[i],' ');
TinhTong();
end.

Vote (0) Phản hồi (0) 2 năm trước

dongviet231

uses crt;
var f:text; n,i:longint; a:Array[1..1000000]of longint;
function s(n:longint):longint;
var i:longint;
begin
s:=0;
for i:=1 to n do s:=s+a[i];
end;
begin
clrscr;
assign(f,'huanvo.DAT');reset(f);
write('n=');readln(n);
for i:=1 to n do readln(f,a[i]);
close(f);
writeln(s(n));
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Viết đoạn văn từ 6-8 dòng về các nội dung sau: -Lòng khiêm tốn -Bảo vệ môi trường biển -Hình ảnh những Bác sĩ trên tuyến đầu chống dịch covid-19 GIÚP MIK VỚI Ạ (MỘT PHẦN ĐỀ CƯƠNG NV HK2 CỦA MIK)

viết ct tạo tệp có tên là huanvo.DAT chứa dãy số gồm N số nguyên liên tiếp ( N được nhập từ bàn phím )

Talk About A Human Activity Which Increases Pollution Giúp Mình Vs Nha

Một xí nghiệp sản xuất quạt bàn dự định hoàn thành kế hoạch trong 25 ngày nhưng mỗi ngày đã qua tăng năng suất thêm 2 chiếc nên đã hoàn thành sớm hơn một ngày và vượt qua mức so với kế hoạch 8 chiếc hỏi số quạt được giao theo kế hoạch

What is Mai's weight ->How .................................................................

Viết hai số chia hết cho 11. Tổng của chúng có chia hết cho 11 không? Viết hai số chia hết cho 13. Tổng của chúng có chia hết cho 13 không?

a) Hãy tìm số dư trong phép chia mỗi số sau đây cho 3: 255; 157; 5105. b) Có thể sắp xếp cho 17 bạn vào 4 xe taxi được không? Biết rằng mỗi xe taxi chỉ chở được không quá 4 bạn.

c1. cho 13g kễm phản ứng hoàn toàn với dung dịch axit clohiđric dư. a) viết PTHH b) tính thể tích khí sinh ra ở đktc c) nếu dùng hoàn toàn bộ lượng khí đem khử 12g bột cuO ở nhiệt độ cao thì chất nào còn dư? Dư bao nhiêu gam hoặc bao nhiêu lít?

Giúp mình câu 673,675 với ạ giúp mình với

Giúp với cầu xin Cho C(x)=5x mũ 3-x mũ 2+x-5 CMR:x=1 là nghiệm của đa thức C(x)

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến