Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
freopen("an.txt","w",stdout);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
uses crt;
const fi='dulieu.inp';
var f1:text;
a:array[1..100]of integer;
n,i,t1,t2:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i]>0 then t1:=t1+a[i];
if a[i]<0 then t2:=t2+a[i];
end;
writeln('Tong cac so duong la: ',t1);
writeln('Tong cac so am la: ',t2);
close(f1);
readln;
end.
program du_lieu;
uses crt;
var i,n:integer;
a:array[1..100]of integer;
tbc:real;
f:text;
begin
clrscr;
assign(f,'DULIEU.INP');reset(f);
readln(f,n);
for i:=1 to n do
begin
read(f,a[i]);
end;
close(f);
for i:=1 to n do
tbc:=tbc+a[i];
writeln(tbc/n);
readln;
end.
Đọc tệp sẵn là Data(I).txt bên trong có 24 chữ số có cả âm và dương. Tính tổng 24 chữ số rồi in ra Data(O).txt . Các bác giúp em với program day_so; uses crt; Const fi=('An(I).txt'); fo=('An(O).txt'); var i,t,s,n: integer; f1,f2:text; a: array[1..24] of integer; begin clrscr; assign(f1,fi);reset(f1); assign(f2,fo);rewrite(f2); s:=0; for i:=1 to 24 do begin read(f1,a[i]); s:=s+a[i]; end; write(f2,s); close(f1); close(f2); readln end. Em không biết sai ở đâu ☹️
Tại vì cái này là xuất ra file nên bạn hãy bỏ cái uses crt; clrscr; readln là sẽ chạy rất tốt