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

Những câu hỏi liên quan
Tình Nguyễn thanh
Xem chi tiết
Minh Lệ
1 tháng 4 2022 lúc 19:31

Bạn kiểm tra lại đề nhé. Đề bị thiếu rồi, nếu đề như vậy không thể xác định được số âm trong tệp được.

Miner Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 9:11

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,dem;

int main()

{

freopen("dl.inp","r",stdin);

freopen("dl.dat","w",stdout);

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

dem=0;

for (i=1; i<=n; i++)

if (a[i]==10) dem++;

cout<<dem;

return 0;

}

Nguyễn Gia Bảo
Xem chi tiết
Đặng Minh quân
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 18:41

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.

Nguyễn Văn Thường
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2022 lúc 18:51

const fi='input.txt'

fo='soan.txt'

var f1,f2:text;

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

i,n: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;

for i:=1 to n do 

  if a[i]<0 then writeln(f2,a[i]:4);

close(f1);

close(f2);

end.

Miner Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 8:35

const fi='dl.dat'

fo='kq.dat'

var f1,f2:text;

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

i,n,dem1,dem2,t1,t2:integer;

begin

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

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

readln(f1,n);

for i:=1 to n do read(f1,a[i]);

dem1:=0;

dem2:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

end;

t1:=0;

t2:=0;

for i:=1 to n do 

begin

if (a[i] mod 6=0) then t1:=t1+a[i];

if (a[i] mod 9=0) and (a[i] mod 2<>0) then t2:=t2+a[i];

end;

writeln(f2,dem1,' ',dem2);

writeln(f2,t1);

writeln(f2,t2);

close(f1);

close(f2);

end.

Ác Quỷ Bé Mon
21 tháng 2 2022 lúc 8:52

const fi='dl.dat'

fo='kq.dat'

var f1,f2:text;

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

i,n,dem1,dem2,t1,t2:integer;

begin

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

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

readln(f1,n);

for i:=1 to n do read(f1,a[i]);

dem1:=0;

dem2:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

end;

t1:=0;

t2:=0;

for i:=1 to n do 

begin

if (a[i] mod 6=0) then t1:=t1+a[i];

if (a[i] mod 9=0) and (a[i] mod 2<>0) then t2:=t2+a[i]

end

writeln(f2,dem1,' ',dem2)

writeln(f2,t1)

writeln(f2,t2)

close(f1)

close(f2)

;-;

Louis Kai
Xem chi tiết
Như Lê thị quỳnh
Xem chi tiết
An Đinh
Xem chi tiết
Minh Lệ
19 tháng 3 2023 lúc 22:52

Program HOC24;

var i,n: integer;

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

t: longint;

f1,f2: text;

const fi='DATA1.TXT'

fo='KQ1.TXT'

begin

assign(f1,fi);

assign(f2,fo);

reset(f1);

rewrite(f2);

readln(f1,n);

for i:=1 to n do read(f1,a[i]);

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

writeln(f2,t);

for i:=1 to n do if a[i] mod 5=0 then write(f2,a[i],' ');

close(f1); close(f2);

end.